Recent content by 2009luca

Based the site: https://risultatilotto.com/superenalotto/generatore-numeri/ how to put 6 in input box (combinations) to the default have 5 I just use IE Object My test code dont work! Sub InserisciValoreInPaginaWeb() Dim IE As Object Dim HTMLDoc As Object Dim HTMLInput As...

This code select an item in dropdown web page. Possibe to update the value of Z in the button? ... Set DropDown = HTML.getElementById("anno") For Each dropOption In DropDown.getElementsByTagName("option") If dropOption.innerText = Z Then DropDown.Value =...

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