vbebadi

نکاتی راجع به ویژال بیسیک

نحوه ایجاد اعداد زوج بین یک تا صد به صورت افقی در یک فایل

Private Sub cmdWrite_Click()
Dim F As Integer
F = FreeFile()
Open App.Path + "\text1.txt" For Output As #F
For i = 2 To 100 Step 2
Write #F, i;
Next i
Close #F
End Sub

+ نوشته شده توسط ebadi در چهارشنبه نهم فروردین 1391 و ساعت 14:49 |

نحوه ارتباط وی بی 6 با اکسس 2007

برای ارتباط VB6 با Access 2007 کافیست ابتدا یک کنترل Adodc1 بر روی صفحه انداخته و سپس کد زیر را در رویداد Form_Load بنویسید :

Adodc1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=Database2.accdb;Persist Security Info=False"

Adodc1.RecordSource = "select * from tblkala"

Adodc1.Refresh

دقت کنید که حتما خاصیت DataSource تمام TextBoxها را به Adodc1 تنظیم نمایید . نهایتا اینکه کدهای مربوط به ذخیره را نیز در کلید ذخیره بنویسید :

Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(0) = Text1
Adodc1.Recordset.Fields(1) = Text2
Adodc1.Recordset.Fields(2) = Text3
Adodc1.Recordset.Update

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""

Text1.SetFocus

+ نوشته شده توسط ebadi در سه شنبه هشتم آذر 1390 و ساعت 11:23 |

چگونه اعداد خود را در تکس باکس سه رقم سه رقم جدا کنیم

در رویداد change مربوط به TextBox مربوطه کد زیر را می نویسیم

If Text1.Text <> "" Then

Text1.Text = Format(Text1.Text, "##,0")

Text1.SelStart = Len(Text1.Text)

End If

+ نوشته شده توسط ebadi در یکشنبه ششم آذر 1390 و ساعت 8:8 |

جدا کردن سه رقم اعداد

Private Sub Text1_Change()

If Text1.Text <> "" Then

Text1.Text = Format(Text1.Text, "##,0")

Text1.SelStart = Len(Text1.Text)

End If

End Sub

+ نوشته شده توسط ebadi در دوشنبه دوم آبان 1390 و ساعت 17:43 |

تالیف کتاب آموزش گام به گام اي اس پي دات نت 2010

با سلام خدمت تمامي دوستان اميداوارم تمامي شما در تمامي مراحل زندگي موفق باشيد به استحضار تمامي شما دوستان گرامي مي رساند كه كتاب تاليف ASP.NET 2010 انتشارات اشراقي اثر اينجانب به چاپ رسيد اميدوارم قدمي كوچك در راه شكوفايي و ارتقاء علمي اين كشور برداشته باشم

+ نوشته شده توسط ebadi در سه شنبه سوم خرداد 1390 و ساعت 13:59 |

کد ریجیستری مربوط به کریستال ریپورت 10 و 11

کد مربوط به کریستال ریپورت ده : ۶۸۳۹۲۳۴۴۲۴

کد مربوط به کریستال ریپورت یازده : ۱۲۳۱۴۶۷۸۹۰

+ نوشته شده توسط ebadi در یکشنبه دهم بهمن 1389 و ساعت 15:15 |

یک سایت خوب برای طراحی صفحات وب و برداشتن کدهای جاوا اسکریپت

یک سایت خوب و آموزشی برای طراحی صفحات وب

http://hjtmh.persiangig.com

+ نوشته شده توسط ebadi در پنجشنبه چهارم شهریور 1389 و ساعت 18:6 |

آپلود فایل

برای آپلود فایلهایتان از آدرس زیر استفاده نمایید .

http://up.lon.ir