رفتن به مطلب
  • 0

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


MahdiHD

سوال

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

1 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

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

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...