[VB6] Send Key e Message Box

[Bardamù]

Ciao a tutti!
Ho un problemino in un programma:
utilizzo all'interno di un ciclo un sendKey("~") per mandare l'invio in automatico tante volte, quante viene eseguito il ciclo.
Fuori da questo ciclo metto una msgbox, che pero' non viene visualizzata, come se il send key agisse anche su di essa?
Com'e' possibile se la msgbox sta fuori dal ciclo?
Grazie.

[alka]

Le domande su Visual Basic vanno inoltrate all'apposito subforum. Sposto la discussione.

Ciao!

[tas]

Posta il codice, così è arduo aiutarti...

[Bardamù]

Ok, grazie Tas:

For i = 1 To n
ProgressBar1.value = ProgressBar1.value + 1
strBarcode = nullTrim(stGetBarString(i))
ReDim Preserve Barcode(i)
Barcode(i) = strBarcode
txtBarCode.FontBold = True
txtBarCode.Text = txtBarCode.Text + strBarcode + vbCrLf
PageNo = stGetBarStringPos(i, TopLeftX, TopLeftY, BottomRightX, BottomRightY)
j = SoftekImageViewer1.DrawRectangle(TopLeftX, TopLeftY, BottomRightX, BottomRightY, strBarcode)
BarDirection = stGetBarStringDirection(n)
Label5.Caption = i
DoEvents
SendKeys ("~")


Next i
lbl_Salvataggio.Visible = False
File2.Refresh

For i = 1 To n

fnum = FreeFile
If File2.ListCount > n Then
Open File2.path & "\" & File1.filename & "_" & IIf(optSecondaPagina, i, i + 1) & ".txt" For Output As #fnum
Else
Open File2.path & "\" & File1.filename & "_" & i & ".txt" For Output As #fnum
End If
Print #fnum, Mid$(File1.filename, 6, 8) & vbCrLf & Chr(Mid$(Barcode(i), 2, 2)) & Chr(Mid$(Barcode(i), 4, 2)) & Mid$(Barcode(i), 6, 3) & Chr(Mid$(Barcode(i), 9, 2)) & Chr(Mid$(Barcode(i), 11, 2)) & vbCrLf & "a"
Close #fnum

Next i




lbl_Attesa.Visible = False
'ProgressBar1.value = 0
cmd_Conferma.enabled = False
MsgBox "File splittato"

Quest'ultima msg box e' quella non visualizzata

[tas]

Ma a cosa ti serve la riga SendKeys ("~") ???

(Suggerimento: quando posti del codice ricordati di inserirlo tra i tag CODE --- /CODE, sarà tutto più leggibile e a molti più utenti del forum verrà voglia di aiutarti!)

[Bardamù]

siccome utilizzo un ocx all'interno del programma, che per ogni file splittato mi mette una msgbox, vorrei evitare di fare invio tante volte

[tas]

E' difficile aiutarti non disponendo dell'ocx in questione.
Fai questi tentativi:

• prova a togliere il DoEvents dal primo ciclo For
• prova a mettere qualche DoEvents prima della riga: MsgBox "File splittato"
• sostituisci il carattere ~ con lo spazio Chr$(32)

Ciao

[Bardamù]

Ciao Tas, grazie mille ma purtroppo non va, vabbe' non e' grave, il programma funziona lo stesso.

[Rombo di Tuono]

Originariamente inviato da Bardamù
MsgBox "File splittato"

Quest'ultima msg box e' quella non visualizzata

perdona se la mia risposta è un po' semplicistica...

ma MsgBox funziona anche se NON metti le parentesi ??

MsgBox ("File Splittato")

Ciao

[power.mobile]

certo!! in vb6 puoi anche omettere le parentesi.