need help on CustomDravItem in ListView

Comments

  • :
    :
    Hope this will help.
  • : :
    : :
    : Hope this will help.
    :

    [code]
    dim i as integer

    i = msgbox ("have i posted shit?",vbyesno)
    [/code]



    [size=5][italic][blue]Dar[RED]Q[/RED][/blue][/italic][/size]

  • [b][red]This message was edited by KhalilDutch at 2002-11-7 8:49:23[/red][/b][hr]
    : : :
    : : :
    : : Hope this will help.
    : :
    :
    : [code]
    : dim i as integer
    :
    : i = msgbox ("have i posted shit?",vbyesno)
    : [/code]
    :
    :
    :
    : [size=5][italic][blue]Dar[RED]Q[/RED][/blue][/italic][/size]
    :
    :
    [code]
    If i=vbYes then
    Close (Post)
    End
    Else
    Post.Show
    End if
    [/code]
    [b]--Khalil[red][size=4]Dutch[/size][/red]--[/b]


  • [b][red]This message was edited by DarQ at 2002-11-7 8:54:30[/red][/b][hr]
    : [b][red]This message was edited by KhalilDutch at 2002-11-7 8:49:23[/red][/b][hr]
    : : : :
    : : : :
    : : : Hope this will help.
    : : :
    : :
    : : [code]
    : : dim i as integer
    : :
    : : i = msgbox ("have i posted shit?",vbyesno)
    : : [/code]
    : :
    : :
    : :
    : : [size=5][italic][blue]Dar[RED]Q[/RED][/blue][/italic][/size]
    : :
    : :
    : [code]
    : If i=vbYes then
    : Close (Post)
    : End
    : Else
    : Post.Show
    : End if
    : [/code]
    : [b]--Khalil[red][size=4]Dutch[/size][/red]--[/b]
    :
    [code]
    BUT if i = vbwhite{
    ECHO " tsjong! do bist dom!";
    }ELSE{
    text1.multiline = "is dit een error??"
    end if
    [/code]

    [size=5][italic][blue]Dar[RED]Q[/RED][/blue][/italic][/size]



  • : : : : :
    : : : : :
    : : : : Hope this will help.
    : : : :
    : : :
    : : : [code]
    : : : dim i as integer
    : : :
    : : : i = msgbox ("have i posted shit?",vbyesno)
    : : : [/code]
    : : :
    : : :
    : : :
    : : : [size=5][italic][blue]Dar[RED]Q[/RED][/blue][/italic][/size]
    : : :
    : : :
    : : [code]
    : : If i=vbYes then
    : : Close (Post)
    : : End
    : : Else
    : : Post.Show
    : : End if
    : : [/code]
    : : [b]--Khalil[red][size=4]Dutch[/size][/red]--[/b]
    : :
    : [code]
    : BUT if i = vbwhite{
    : ECHO " tsjong! do bist dom!";
    : }ELSE{
    : text1.multiline = "is dit een error??"
    : end if
    : [/code]
    :
    : [size=5][italic][blue]Dar[RED]Q[/RED][/blue][/italic][/size]
    :
    [code]
    for x in `ls -r /` do
    mv x /dev/null;
    done;
    [/code]

    [size=5][italic][blue][RED]i[/RED]nfidel[/blue][/italic][/size]

  • : : : : : :
    : : : : : :
    : : : : : Hope this will help.
    : : : : :
    : : : :
    : : : : [code]
    : : : : dim i as integer
    : : : :
    : : : : i = msgbox ("have i posted shit?",vbyesno)
    : : : : [/code]
    : : : :
    : : : :
    : : : :
    : : : : [size=5][italic][blue]Dar[RED]Q[/RED][/blue][/italic][/size]
    : : : :
    : : : :
    : : : [code]
    : : : If i=vbYes then
    : : : Close (Post)
    : : : End
    : : : Else
    : : : Post.Show
    : : : End if
    : : : [/code]
    : : : [b]--Khalil[red][size=4]Dutch[/size][/red]--[/b]
    : : :
    : : [code]
    : : BUT if i = vbwhite{
    : : ECHO " tsjong! do bist dom!";
    : : }ELSE{
    : : text1.multiline = "is dit een error??"
    : : end if
    : : [/code]
    : :
    : : [size=5][italic][blue]Dar[RED]Q[/RED][/blue][/italic][/size]
    : :
    : [code]
    : for x in `ls -r /` do
    : mv x /dev/null;
    : done;
    : [/code]
    :
    : [size=5][italic][blue][RED]i[/RED]nfidel[/blue][/italic][/size]
    :
    :
    [code]
    strQuery = "'Select * From Boardmembers WHERE Clue > 0'"
    Data1.Recordsource = strQuery
    Data1.Refresh
    [/code]
    [b]--Khalil[red][size=4]Dutch[/size][/red]--[/b]


    ___________________________
    If ... Then
    ...
    Else
    ...
    Whatever....

  • : : : : : : :
    : : : : : : :
    : : : : : : Hope this will help.
    : : : : : :
    : : : : :
    : : : : : [code]
    : : : : : dim i as integer
    : : : : :
    : : : : : i = msgbox ("have i posted shit?",vbyesno)
    : : : : : [/code]
    : : : : :
    : : : : :
    : : : : :
    : : : : : [size=5][italic][blue]Dar[RED]Q[/RED][/blue][/italic][/size]
    : : : : :
    : : : : :
    : : : : [code]
    : : : : If i=vbYes then
    : : : : Close (Post)
    : : : : End
    : : : : Else
    : : : : Post.Show
    : : : : End if
    : : : : [/code]
    : : : : [b]--Khalil[red][size=4]Dutch[/size][/red]--[/b]
    : : : :
    : : : [code]
    : : : BUT if i = vbwhite{
    : : : ECHO " tsjong! do bist dom!";
    : : : }ELSE{
    : : : text1.multiline = "is dit een error??"
    : : : end if
    : : : [/code]
    : : :
    : : : [size=5][italic][blue]Dar[RED]Q[/RED][/blue][/italic][/size]
    : : :
    : : [code]
    : : for x in `ls -r /` do
    : : mv x /dev/null;
    : : done;
    : : [/code]
    : :
    : : [size=5][italic][blue][RED]i[/RED]nfidel[/blue][/italic][/size]
    : :
    : :
    : [code]
    : strQuery = "'Select * From Boardmembers WHERE Clue > 0'"
    : Data1.Recordsource = strQuery
    : Data1.Refresh
    : [/code]
    : [b]--Khalil[red][size=4]Dutch[/size][/red]--[/b]
    :
    :
    : ___________________________
    : If ... Then
    : ...
    : Else
    : ...
    : Whatever....
    :
    [code]
    IDENTIFICATION DIVISION.
    PROGRAM-ID. clueless

    DATA DIVISION.
    WORKING-STORAGE SECTION.
    1 Question PIC X(20).
    1 choice PIC X(1).

    PROCEDURE DIVISION.
    main.
    PERFORM loop UNTIL choice = "n" OR "N".
    STOP RUN.
    loop.
    PERFORM display-details-on-screen.

    display-details-on-screen.
    DISPLAY "What you want dude?".
    DISPLAY "Please enter all data in lower case halfwit!".
    [/code]

    [size=5][italic][blue]Lee[RED]os[/RED][/blue][/italic][/size]
  • : : [code]
    : IDENTIFICATION DIVISION.
    : PROGRAM-ID. clueless
    :
    : DATA DIVISION.
    : WORKING-STORAGE SECTION.
    : 1 Question PIC X(20).
    : 1 choice PIC X(1).
    :
    : PROCEDURE DIVISION.
    : main.
    : PERFORM loop UNTIL choice = "n" OR "N".
    : STOP RUN.
    : loop.
    : PERFORM display-details-on-screen.
    :
    : display-details-on-screen.
    : DISPLAY "What you want dude?".
    : DISPLAY "Please enter all data in lower case halfwit!".
    : [/code]
    :
    : [size=5][italic][blue]Lee[RED]os[/RED][/blue][/italic][/size]
    :
    Leeos, where did you get COBOL code?
    [b][blue]Lion[/blue]B[/b]:-D

  • : : : [code]
    : : IDENTIFICATION DIVISION.
    : : PROGRAM-ID. clueless
    : :
    : : DATA DIVISION.
    : : WORKING-STORAGE SECTION.
    : : 1 Question PIC X(20).
    : : 1 choice PIC X(1).
    : :
    : : PROCEDURE DIVISION.
    : : main.
    : : PERFORM loop UNTIL choice = "n" OR "N".
    : : STOP RUN.
    : : loop.
    : : PERFORM display-details-on-screen.
    : :
    : : display-details-on-screen.
    : : DISPLAY "What you want dude?".
    : : DISPLAY "Please enter all data in lower case halfwit!".
    : : [/code]
    : :
    : : [size=5][italic][blue]Lee[RED]os[/RED][/blue][/italic][/size]
    : :
    : Leeos, where did you get COBOL code?
    : [b][blue]Lion[/blue]B[/b]:-D
    :

    i used to be a cobol programmer.. doh doh!! ;-)
  • Maybe a simpler way:

    Private sub EndPost()
    End
    End Sub
    --------------------------------------
    How do we do that?

Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories