Results 1 to 6 of 6

Thread: Why Wont this work **Resolved**

  1. #1

    Thread Starter
    Hyperactive Member New to VB 6's Avatar
    Join Date
    Apr 2002
    Posts
    362

    Question Why Wont this work **Resolved**

    Private Sub Command1_Click()
    Open App.Path & txtcrypt.text For Output As #1
    Print #1, "[RECORD]"
    Print #1, "MsgID=" & strNum
    Print #1, "MsgName=" & Text1.Text
    Print #1, "MailboxType=0"
    Print #1, "MsgPassword=" & Text2.Text
    Print #1, "Forward="
    Print #1, "Greeting=C:\funk\defgreet.wav"
    Print #1, "GreetLog=0"
    Print #1, "PagerNo="
    Print #1, "PagerPIN="
    Print #1, "PagerMsg="
    Print #1, "PagerAutoConnection=0"
    Print #1, "PagerDelayTime=5"
    Print #1, "PagerRingInterval=3"
    Print #1, "PagerFirstRing=10"
    Print #1, "PagerToneDuration=2"
    Print #1, "PagerRetry=2"
    Print #1, "PagerInterval=2"
    Print #1, "MaxRcv=100"
    Print #1, "MaxSend=100"
    Print #1, "Control=135"
    Print #1, "SoundFile="
    Print #1, "TotalMsg=0"
    Print #1, "NewMsg=0"
    Print #1, "OldMsg=0"
    Print #1, "LocalMsg=0"
    Print #1, "</pre>"
    Print #1, "DisplayString="
    Print #1, "WidthString="
    Print #1, "TableStyle=0"
    Print #1, "SortID=5072"
    Print #1, "OrderID=5073"
    Close #1
    End Sub
    Last edited by New to VB 6; Sep 8th, 2004 at 10:44 PM.
    [VBCODE]
    Option Explicit
    Dim XXX As Porn
    Dim Wife As Nag

    Private Sub *****_Resize()
    On Error Resume Next
    Get Viagra
    End Sub
    [/VBCODE]

  2. #2
    The Devil crptcblade's Avatar
    Join Date
    Aug 2000
    Location
    Quetzalshacatenango
    Posts
    9,092
    Because you haven't told us what its supposed to be doing?
    Laugh, and the world laughs with you. Cry, and you just water down your vodka.


    Take credit, not responsibility

  3. #3

    Thread Starter
    Hyperactive Member New to VB 6's Avatar
    Join Date
    Apr 2002
    Posts
    362
    save to a file named after the value in the text box named txtcrypt
    in this case I'll call it 123

    the value in strNum is a number
    the value in Text1.Text is a string
    the value in Text2.Text is a string

    here's the project files
    Attached Files Attached Files
    [VBCODE]
    Option Explicit
    Dim XXX As Porn
    Dim Wife As Nag

    Private Sub *****_Resize()
    On Error Resume Next
    Get Viagra
    End Sub
    [/VBCODE]

  4. #4
    The picture isn't missing BuggyProgrammer's Avatar
    Join Date
    Oct 2000
    Location
    Vancouver, Canada
    Posts
    5,217
    :

    Open App.Path & "\" & txtcrypt.text For Output As #1
    Remember, if someone's post was not helpful, you can always rate their post negatively .

  5. #5

  6. #6

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width