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

VB Regedit

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

( خوشبختانه سایت 4Shared رفع فیلتر شده و تمام لینکهای دانلود قابل دسترسی هستند.)

دانلود

کلمات کلیدی : وی بی 6، VB Regedit، تغییرات در رجیستری، کار با رجیستری

نوشته شده توسط مهدی در یکشنبه 88/12/16 و ساعت 1:20 عصر | نظرات دیگران()

ایجاد لیست 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

دانلود

کلمات کلیدی : وی بی 6، سورس کد، ایجاد لیست html از تصاویر درون یک پوشه

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

بدست آوردن ایام هفته

این تابع تاریخ رو به میلادی میگیره و مشخص میکنه اون تاریخ چند شنبه است.

Public Function DayName(strDate As String) As String
Select Case Weekday(strDate)
    Case 7:
        DayName = "شنبه"
    Case 1:
        DayName = "یکشنبه"
    Case 2:
        DayName = "دوشنبه"
    Case 3:
        DayName = "سه شنبه"
    Case 4:
        DayName = "چهارشنبه"
    Case 5:
        DayName = "پنج شنبه"
    Case 6:
        DayName = "جمعه"
End Select
End Function