[silverlord]

يوجد بالمنتدى مشكلة يقوم بحذف الردود بشكل غريب !
عموماً شكرا لك اخي سامي تم حل المشكلة عن طريق كودك

 

كود :

     Dim Country() As String = System.IO.File.ReadLines("cities.txt").ToArray
       Dim lin As String = Country(New Random().Next(Country.Count))
       Dim cntry As String = lin.Split("|")(0)
       Dim ctys() As String = lin.Split("|")(1).Split(",")
       Dim cty As String = ctys(New Random().Next(ctys.Count))
       TextBox1.Text = cntry
       TextBox2.Text = cty