• settembre 2002
  • ottobre 2002
  • novembre 2002
  • dicembre 2002
  • gennaio 2003
  • febbraio 2003
  • marzo 2003
  • aprile 2003
  • maggio 2003
  • giugno 2003
  • luglio 2003
  • agosto 2003
  • settembre 2003
  • ottobre 2003
  • novembre 2003
  • dicembre 2003
  • gennaio 2004
  • febbraio 2004
  • marzo 2004
  • aprile 2004
  • maggio 2004
  • giugno 2004
  • luglio 2004
  • novembre 2004
  • maggio 2005
  • marzo 2006
  • aprile 2006
  • maggio 2006
  • ottobre 2006
  • gennaio 2009
  • febbraio 2009
  • marzo 2009
  • aprile 2009
  • maggio 2009
  • luglio 2009
  • agosto 2009
  • dicembre 2009

  • This page is powered by Blogger. Isn't yours?

    tremate tremate le mie cazzate son tornate!

    mercoledì, novembre 12, 2003

    dear vb6;
    caro visual basic 6, vorrei tanto sapere perchè continui a far uscire quello stronzo di mrWatson...
    smettila!
    fammi andare a casa e accetta le parti di codice che ti do in pasto...
    è tardi...
    se esco fra un'ora becco la coda in corso ferrucci...
    perciò vedi di funzionare a dovere....
    porco!
    Dim itmX As ListItem

    ' Se il record non è l'ultimo, aggiunge
    ' un oggetto ListItem. Usa il campo Author per il
    ' testo dell'oggetto ListItem. Usa il campo
    ' AuthorID per il sottoelemento SubItem(1)
    ' dell'oggetto ListItem.
    ' Usa il campo "Year Born" per il sottoelemento
    ' SubItem(2) dell'oggetto ListItem.


    While Not myRs.EOF

    Set itmX = ListView1.ListItems. _
    Add(, , CStr(myRs!Author))
    ' Autore.
    ' Se il campo "Author ID" non è Null, imposta
    ' SubItem 1 sul campo stesso.

    If Not IsNull(myRs!Au_id) Then
    itmX.SubItems(1) = CStr(myRs!Au_id)
    End If

    ' Se il campo nascita non è null, imposta
    ' SubItem 2 sul campo.

    If Not IsNull(myRs![Year Born]) Then
    itmX.SubItems(2) = myRs![Year Born]
    End If
    myRs.MoveNext
    ' Passa al record successivo.

    Wend
    End Sub