Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  • Users: 2009luca
  • Content: Threads
  • Order by date
  1. 2009luca

    PRINT title in center on hight page for each page

    Private Sub Image17_Click() If Val(Me.LNRC.Caption) > 0 Then Screen.MousePointer = vbHourglass With Me.MSFlexGrid6 Printer.Font = "Consolas" Printer.Font.Size = 9 'THIS IS THE TITLE Printer.Print...
  2. 2009luca

    strong, where are you...

    Create a API from button click. Bsed the site: https://www.tuttosuperenalotto.it/superenalotto-info-verifica-vincite-al-superenalotto.asp?giro=1#paragrafo1 possible to click on "Verifica combinazioni" after to choice 6 number, and post the comand via api? Ths table is approx , at the end of...
  3. 2009luca

    put value in input box web page

    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...
  4. 2009luca

    put value in web dropdown

    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 =...
  5. 2009luca

    possible to use xml2 or Set WHTTP = CreateObject("WinHTTP.WinHTTPrequest.5.1"), instead code in message

    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 =...
  6. 2009luca

    Dubt on Cloud storage

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

    difficult to crteate a query very complicated

    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
  8. 2009luca

    checkbox on msflex grid

    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...
  9. 2009luca

    SET FOCUS on treeview node

    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)...
  10. 2009luca

    SET focus on node treeview

    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
  11. 2009luca

    i dont view any icon durin node add

    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 =...
  12. 2009luca

    GET splitted value from node and sub node in treeview

    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...
  13. 2009luca

    USE find instead to loop

    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...
  14. 2009luca

    COUNT all items in trteeview in last level

    How to count COUNT all items in trteeview in last level? tks
  15. 2009luca

    CHECK color of shape

    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&...
  16. 2009luca

    graph with access database - im on vb6

    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
  17. 2009luca

    SORT msflexgrid column 1 with decimal number

    i just have in ciolumn 1 this: 0,45 0,7 -0,47 -11,80 0,5 ecc... how to sort the comlumn value? Tks
  18. 2009luca

    TWO table with the same classname

    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"...
  19. 2009luca

    population of italy live/real time

    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...
  20. 2009luca

    GET date from classname

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

Part and Inventory Search

Back
Top