شوێنمان کەوە لە ئینستاگرام

دروستکردنی نووسینی جوڵاو لە ڤیژوەڵ بەیسك

لەم وانەیەدا باس لە دروستکردنی نووسینی جوڵاو دەکەین لە پڕۆگرامی ڤیژوەڵ بەیسك .

بە بەکارهێنانی نووسینی جووڵاو دەتوانین شێوەیەکی جوانتر بدەین بە پڕۆژەکانمان لە ڤیژوەڵ بەیسك .



کۆدی بەکارهاتوو :
کۆدی یەکەم
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



دروستکردنی نووسینی جوڵاو لە ڤیژوەڵ بەیسك


بڵاوکردنەوەی ئەم بابەتە

فەیس بووكتویتەرگۆگڵ+


خەندەکانشاردنەوە