سورس کد - آموزش ویژوال بیسیک

تکمیل کردن آدرس در TextBox

اگه شما نیاز داشته باشید که کاربر آدرس یک شاخه یا فایل رو داخل یک تکست باکس تایپ کنه، این تابع به کمکتون میاد

این تابع بصورت اتوماتیک آدرس رو براتون تکمیل میکنه

دانلود

کلمات کلیدی : سورس کد، وی بی6، تکمیل کردن آدرس در TextBox

نوشته شده توسط مهدی در چهارشنبه 88/9/25 و ساعت 4:26 عصر | نظرات دیگران()

ایجاد لیست html از تصاویر درون یک پوشه

این برنامه از تصاویر درون یک پوشه خاص لیست اچ تی ام ال درست میکنه

فقط باید آدرس مسیر حاوی عکسها و فرمت اونهارو به تابع زیر ارسال کنید:

Public Sub convert(path As String, pattern As String)
On Error GoTo z
Open path + "\List.html" For Output As 1
Print #1, "<HTML>"
Print #1, "<HEAD>"
Print #1, "<TITLE>" & path & "</TITLE>"
File1.path = path
File1.pattern = pattern
For i = 0 To File1.ListCount
If File1.List(i) = "" Then Exit Sub
s = File1.path + "\" + File1.List(i)
x = "<A href="" & s & """ & "><IMG WIDTH=100 HEIGHT=100 SRC="" & s & ""></a>"
Print #1, x
Next i
Exit Sub
z:
MsgBox Err.Deion
End Sub