Recent content by 2009luca

for jaejunks... tks for suggestion and for this: https://www.lottobook.it/lotto/quaterne-frequenti-lotto/

my test code, dont work i'm not sure when invoche the class name, which is? Sub TpData() Const URL = "https://www.lottobook.it/lotto/ambi-frequenti-lotto/" Dim http As New XMLHTTP60, html As New HTMLDocument, post As Object, i With http .Open "GET", URL, False...

Sub AMBI_lottobook() Dim IE As Object Dim HTML As Object Dim MYTABLE As Object Dim AMBO As String, T As Integer, NUMCELLE As Integer Dim R As Long, L As Integer, RUOTA As String Dim C As Long, S As Integer, NUMTAB As Integer Dim FREQ As String Set IE =...

For strongm. Resolved my self for all in last question.! Remain the part to get all values in table cells. From: https://www.oklotto.it/ambi-frequenti.php

If i save my access database in a my Cloud, possible to connect it with ADO and Vb 6.0?

strongm, work perfect... But the user can see the price by date to date, and the related period example: admit have "25/08/2024" to "07/09/2024" price from 25/08/2024 to 31/08/2024 a price for SINGOLA price from 01/09/2024 to 07/09/2024 a price for SINGOLA possible? note: in this case the...

for strongm You have understand my question! Yes my database is Access For now use only a STRUTTURA=MARE Yes, possible date from for example: myvarfrom=07/06/2024 myvarto=14/11/2024 ...yea, now i see your face:)

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

tKS strongm, resolved with a rem on: .Style = tvwTreelinesPlusMinusText

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 =...

Hi strongm, i sse te code use down click, possible with mouse move? Note: all shape are in array, similar: shp(0) shp(1) ecc...

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...