درخواست تبدیل عکس به کد (لطفا یه نگاهی بندازید)

[MahdiHD 1,748]

سلام به همه دوستان من یک عکس کد دارم می خوام اون رو به متن کد ها تبدیل کنم متاسفانه من خیلی تایپم تند نیست کار راحتیه یکی از دوستان که تایپش سریعه لطف کنه این عکس رو به متن کد تبدیل کنه خیلی ممنون

http://8pic.ir/images/z80on7b1q39ozphc9sy2.png

[majid08 266]

سلام به همه دوستان من یک عکس کد دارم می خوام اون رو به متن کد ها تبدیل کنم متاسفانه من خیلی تایپم تند نیست کار راحتیه یکی از دوستان که تایپش سریعه لطف کنه این عکس رو به متن کد تبدیل کنه خیلی ممنون

http://8pic.ir/images/z80on7b1q39ozphc9sy2.png

بیا شاید اشتباه داشته باشه

Sub show
Dim sh As Int
sh=0
Dim cur As Cursor
cur=s.ExecQuery("SELECT * FROM Tbl")
Dim h As Int
h = 2%y
For i = 0 To cur.RowCount-1
cur.Position=i
If cur.GetInt("Type")=0 Then
Dim Lbl As Label
Lbl.Initialize("")
Lbl.Text=cur.GetString("Va1ue")
Lbl.Gravity=Gravity.LEFT
Lbl.TextSize=15
Lbl.TextColor=Ci1ors.B1ack
Scrollviewl.Panel.AddView(Lb1,2%x,h,96%x,0)
Dim su As StringUtils
Lbl.Height=su.MeasureMulti1ineTextHeight(Lbl,Lbl.Text)
h = h + Lbl.Height + 2%y
sh=sh+Lbl.Height
Scro1lView1.Panel.Height=sh
Else
Dim img As Imageview
img.Initialize("")
img.Bitmap=Namayesh(i)
Dim bp As BitmapExtended
bp.Initialize("")
Scri11View1.Panel.AddView(img,0,h,bp.getWidth(img.Bitmap),bp.getHeight(img.Bitmap))
h= h + bp.getHeight(img.Bitmap) + 2%y
sh=sh+bp.getHeight(img.Bitmap)
ScrollView1.Panel.Height=sh