Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Problema generatore msgbox VB6
Forum - Visual Basic 6 - Problema generatore msgbox VB6

Avatar
Devil_Joker93 (Normal User)
Rookie


Messaggi: 37
Iscritto: 06/11/2009

Segnala al moderatore
Postato alle 15:19
Giovedė, 07/01/2010
Ciao ha tutti sto creando un generatore di msgbox, ma il problema e che dovrebbe scriverli in un file vbs, Tutto Ok  ma il problema č che gli scrive in modo errato, ecco il codice del programma:

Private Sub XPButton9_Click()
Open ("C:\MsgBox.vbs") For Append As #1
If XPOption3.Value = True Then
Print #1, "MsgBox" + XPText2.Text, 64, XPText1.Text
End If
If XPOption1.Value = True Then
Print #1, "MsgBox" + XPText2.Text, 16, XPText1.Text
End If
If XPOption2.Value = True Then
Print #1, "MsgBox" + XPText2.Text, 48, XPText1.Text
End If
Close #1
End Sub

Ecco cosa mi scrive (per esempio) nel file vbs:

MsgBox Aggiornamento Installato Correttamente            64            Informazione

Invece per funzionare dovrebbe scriverlo cosė:

Msgbox "Aggiornamento Installato Correttamente",64,Informazione

Sapete aiutarmi ?

Grazie

By Devil_Joker93



PM Quote
Avatar
LittleHacker (Member)
Guru


Messaggi: 1033
Iscritto: 28/04/2009

Segnala al moderatore
Postato alle 15:49
Giovedė, 07/01/2010
Testo quotato

Postato originariamente da Devil_Joker93:

Ciao ha tutti sto creando un generatore di msgbox, ma il problema e che dovrebbe scriverli in un file vbs, Tutto Ok  ma il problema č che gli scrive in modo errato, ecco il codice del programma:

Private Sub XPButton9_Click()
Open ("C:\MsgBox.vbs") For Append As #1
If XPOption3.Value = True Then
Print #1, "MsgBox" + XPText2.Text, 64, XPText1.Text
End If
If XPOption1.Value = True Then
Print #1, "MsgBox" + XPText2.Text, 16, XPText1.Text
End If
If XPOption2.Value = True Then
Print #1, "MsgBox" + XPText2.Text, 48, XPText1.Text
End If
Close #1
End Sub

Ecco cosa mi scrive (per esempio) nel file vbs:

MsgBox Aggiornamento Installato Correttamente            64            Informazione

Invece per funzionare dovrebbe scriverlo cosė:

Msgbox "Aggiornamento Installato Correttamente",64,Informazione

Sapete aiutarmi ?

Grazie

By Devil_Joker93





Beh devi fare cs:
ex:
Codice sorgente - presumibilmente Plain Text

  1. "MsgBox """ & XPtext2.Text & """, 64, """ & XPText1.Text & """"


:k:

PM Quote