بە بەکارهێنانی نووسینی جووڵاو دەتوانین شێوەیەکی جوانتر بدەین بە پڕۆژەکانمان لە ڤیژوەڵ بەیسك .
کۆدی بەکارهاتوو :
کۆدی یەکەم
Dim S1 As String = "نووسین"
Dim Counter1 As Integer = 0
کۆدی دووەم
Try
If Counter1 = S1.Length - 1 Then
Me.Label1.Text = ""
Counter1 = 0
End If
Label1.Text += S1.Chars(Counter1)
Counter1 += 1
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
دروستکردنی نووسینی جوڵاو لە ڤیژوەڵ بەیسك
خەندەکانشاردنەوە