1 svar · 145 visningar · startad av roj
Jag vill göra en vanlig funktion i vb som jag kan ropa på och använda med olika värden men får inte till det ser någon vad som e fel?
Private Sub send()
sending (Form1.AFTextBox1.Text)
sending (Form1.AFTextBox2.Text)
sending (Form1.AFTextBox3.Text)
sending (Form1.AFTextBox4.Text)
sending (Form1.AFTextBox5.Text)
sending (Form1.AFTextBox6.Text)
sending (Form1.AFTextBox7.Text)
sending (Form1.AFTextBox8.Text)
AFButton1.Enabled = True
End Sub
Private Function sending(str)
Dim msg As String
msg = str
AFButton2.Enabled = False
sender.SendString msg, Len(msg), OneSecond
End Function
Du måste deklarera vad funktionen ska returnera, samt returnera detta. Tex:
Private Function sending(str As String) As String
Dim msg As String
msg = str
AFButton2.Enabled = False
sender.SendString msg, Len(msg), OneSecond
sending = msg 'returnerar variabeln
End Function
[r] Såg att det fattades en deklaration av parametern du skickade in, men det är ingen skillnad jämfört med en Sub.