19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Visualizza post
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
Come si fa a saltare fuori dai cicli e dalle condizioni senza usare GOTO?
Dim sArray As New String[]
Dim F As Integer
For F = 1 To 10
If F = 5 Then Break
Next
Print F
Print
Do
F = Rand(1, 10)
If sArray.Find(Str(F)) = -1 Then sArray.Add(Str(F))
If sArray.count = 10 Then Break
Loop
Print sArray.Join(", ")
Public Sub Button1_Click()
TextBox1.SetFocus
For iAscii As Integer = 33 To 126
Desktop.SendKeys(Chr(iAscii))
Next
End
Public Sub Form_Resize()
Dim iLabW As Integer = LabelOutput.Width
Dim iFontW As Integer = LabelOutput.Font.TextWidth(LabelOutput.Text)
Dim bUpDown As Boolean
If Max(iLabW, iFontW) = iFontW Then bUpDown = True
If Not bUpDown Then
Repeat
Inc LabelOutput.Font.Size
iLabW = LabelOutput.Width
iFontW = LabelOutput.Font.TextWidth(LabelOutput.Text)
Until iLabW <= iFontW
Dec LabelOutput.Font.Size
Else
Repeat
Dec LabelOutput.Font.Size
iLabW = LabelOutput.Width
iFontW = LabelOutput.Font.TextWidth(LabelOutput.Text)
Until iLabW >= iFontW
End If
End
Public Sub Form_Open()
Dim oObj As Object
For Each oObj In Me.Children
If Not IsNull(oObj.Text) Then
If oObj.text = "pippo" Then
oObj.Font.Bold = True
oObj.Font.Size = 14
End If
Endif
Next
EndbFirstTime As Boolean ''*****************
Public Sub Form_Resize()
If bFirstTime = False Then ''*****************
bFirstTime = True ''*****************
Return ''*****************
Endif ''*****************
With PictureBox1
.x = 0 ''*****************
.y = 0 ''*****************
.h = Me.H
.w = Me.W
End With
Print Me.x & " " & Me.y & " / " & PictureBox1.x & " " & PictureBox1.y
End