this table contain a price list of room.
DAL and AL is the period (from>to) PREZZO is the price
Based myvarfrom="05/06/2024 and myvarto="15/06/2024" and myvaroom="SINGOLA" how to calculate the price of the living room
note:
Naturally myvarfrom and myvarto and myvaroom is dinamic
Private Sub MSFlexGrid1_Click()
Dim I As Integer
With MSFlexGrid1
If .Col = 0 Then
If .CellPicture = picChecked Then
Set .CellPicture = picUnchecked
'.TextMatrix(.Row, 34) = "S"
Else
Set...
My code:
Private Sub CONTA_COMUNI()
Dim MYNODE As Node
Dim NRTOT As Long
VALORE = "004017"
NRTOT = 0
For Each MYNODE In Me.TreeView1.nodes
If MYNODE.children = 0 Then
NRTOT = NRTOT + 1
ISTAT = Split(MYNODE, "-")(0)...
possible when i lick on a node to dont set focus the node?
actually when i click on node the node is covered with a blue rectangle, i dont love tath...
https://files.engineering.com/getfile.aspx?folder=9cc39e69-fce6-4dde-b28f-d988e8205f12&file=Immagine.gif
part of code when add the frist node:
...
With Me.TreeView1
'LockWindowUpdate .hwnd
M = 0
.LineStyle = tvwRootLines
Set Me.TreeView1.ImageList = Me.ImageList1
.Style = tvwTreelinesPlusMinusText
.nodes.Clear
Set NOD =...
Based a click on each node with a splitted value "-" of node i need to get the left part of node...(i think is a (0) item of splitted value)
for example click on 1-NORD-OVEST i need 1
for example click on 1-PIEMONTE i need 1
for example click on AL-ALESSANDRIA i need AL
...
for example click on...
i create an array with:
'PR_ISTAT
SQL = "SELECT PR, PROVINCIA, COUNT(ISTATEXT) AS NUM FROM (SELECT DISTINCT PR, PROVINCIA, ISTATEXT FROM COMUNI_ISTAT) GROUP BY PR, PROVINCIA"
Set RST = New ADODB.Recordset
RST.CursorLocation = adUseClient
RST.Open SQL, CON, adOpenForwardOnly...
i have a series of shape, similar shp(0), shp(1)... shp(N) on label 1.
Possible to check with mouse move on restricted area of label1 the color of shape and the index of single shape shp(n)?
note:
i can have only tree color:
'VERDE &H0000C000&
'ARANCIONE &H000080FF&
'ROSSO &H000000FF&...
I ned to rapresent in a graph the value ANNO and PERC...
Possible?
https://files.engineering.com/getfile.aspx?folder=67bcff12-5d93-44ce-9255-af56b4ce8106&file=TEST.zip
i usse this code to get value from a table Italy population history:
Private Sub FILL_TABELLA_ANNI()
Dim ODOM As HTMLDocument
Set ODOM = CreateObject("htmlFile")
Dim X As Long
Dim ANNO As String, POPZ As String, PERC As String
SQL = "DELETE * FROM TABELLA_ANNI"...
Based this link:
https://www.neodemos.info/category/popolazione/
is possible to insert into a form (a label for example) the real time of population of Italy.
See image.
https://files.engineering.com/getfile.aspx?folder=8b628222-49bb-466f-ae34-0b044327898d&file=Immagine.jpg
other way are...
wath is incorrect from this code:
Option Explicit
Sub TEST()
Dim http As New XMLHTTP60, html As New HTMLDocument, DATA_AGG As String
Dim source As Object
With http
.Open "GET", "https://www.tuttitalia.it/italia/", False
.send
html.body.innerHTML =...
Option Explicit
Sub prova()
Const URL As String = "https://italia.indettaglio.it/ita/comuni/comuni_c.html"
Dim IE As New InternetExplorer, oHtml As HTMLDocument, post As Object, R&
With IE
.Visible = True
.Navigate URL
Do While .Busy: DoEvents: Loop...
START mycode if i clck only on col= 0 and row is between the row=1 at to the and of list
for eamxple i have 23 row
start code if i click between row 1 and row 23
Attached my form.
with the code i see the image on the left and not in center of picturebox?!!!
https://files.engineering.com/getfile.aspx?folder=798f651c-96ec-402b-b91c-186174b043a8&file=SU.gif...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.