کنترل Data

 

پس از اضافه کردن کنترل Data:

 

+ اولین نکته ای که باید بدانید این است که کنترل Data با  اکسس 2003 به پایین می تواند

ارتباط برقرار کند. برای اینکه بانک خود را به ورژن پایین تر تبدیل کنید وقتی بانک را با

اکسس درست کردید،داخل برنامه اکسس و ازقسمت:

 (Tools____Database Utilities____Convert DataBase To Access 97 File Format)

میتوانید آن را به ورژن های دیگر تبدیل کنید.

حال باید خواص ( DataBaseName ) و  ( RecordSource ) را مشخص کنید.

برای این کار خاصیت مربوط به Data1 را با انتخاب پایگاه داده خود تنظیم کنید .

برای مثال اگر پایگاه داده شما در مسیر برنام ای که نوشته اید ( با نام : SampleDb ) قرار داشته

باشد پس از انتخاب خاصیت DataBaseName ،حال روی خاصیت RecordSource کلیک کنید

تا لیست جداول برای شما نمایش داده شود ( اگر اشتباهی کرده باشید پیغام خطا صادر می کنه

یا هیچ جدولی برای انتخاب کردن وجود نداره . 

نکته : خاصیت DataSource مربوط به TextBox ها را باید در هنگام طراحی تنظیم کنیم .

چون امکان تنظیم آن با کد نویسی وجود ندارد .

کد:

Private Sub Form_Load()

      Data1.DatabaseName = app.path & "\sampleDb.mdb"

      Data1.RecordSource = "Users"

      Text1.DataField = "UserName"

      Text2.DataField = "Password"

      Data1.Refresh

End Sub

دوست عزیز کدهای بالا برای انتخاب بانک اطلاعاتی ، انتخاب جدول ، انتخاب فیلد داخل

بانک اطلاعاتی بکار می رود.

بخش اول وبلاگ نویسی

 

مباحثی از طریقه ساختن وبلاگ و وبلاگ نویسی:

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

در مواقعی شخص در پی این می باشد که از این راه درآمد کسب کند.مثل:(فروشگاههای اینترنتی

و تبلیغات اینترنتی ).

در بعضی از مواقع شما فقط میخواهید که یک وبلاگ با موضوعات مختلف و محتویات مختلف را برروی

اینترنت منتشر تا همه بتوانند از آن استفاده کنند.(مثل این وبلاگ و ....)

خیلی از موارد دیگر هم می باشد که می توانند نظر شخص را تغییر دهد.

همه ی این موارد که گفته شد یک طرف و انتخاب سرور و نام وبلاگ و محتویات طرف دیگر.

در انتخاب سرور در صورتی که بخواهید وبلاگ مجانی باشد ( بلاگفا) که در این صورت با نام

*www.YourName.blogfa.com* ثبت می شود و در صورتی که بخواهید دامنه ی آن را تغییر دهید

یعنی به صورت *www.YourName.Com , www.YourName.Ir* شود باید از شرکتهایی که هاست

و دامنه می فروشند تهیه کنید. ما در اینجا طریقه ساختن آن از طریق بلاگفا را توضیح می دهیم.

------------------------- ساختن وبلاگ در بلاگفا -------------------------

خود سایت بلاگفا یک راهنمائی درست و حسابی برای شما تهیه کرده اند. در آدرس زیر:

http://www.blogfa.com/Help

با مطالعه کامل این صفحه می توانید یک وبلاگ راه اندازی کنید و به جمع بلاگفا بپیوندید.

شما وقتی که وبلاگ را درست کردید باید قالب وبلاگ را تغییر دهید و خیلی کارهای دیگه.

شما می توانید از سایت *www.blogskin.ir* استفاده کنید و کد قالب خود را گرفته و پس از آنکه

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

بخش دوم آموزش در هفته آینده و مربوط به تغییر کدهای قالب.

 

دانلود سورسهای برنامه نویسی:

 

          رمز این فایلها:(www.learnvb.blogfa.com)

برنامه ای که توسط آن می توان کد اسکی را بدست آورد. (ASCII Code)

«««««««« Download »»»»»»»

تکه برنامه کوچکی که توسط آن می توان درب درایو نوریتان را باز و بسته نمود.

«««««««« Download »»»»»»»

برنامه های زیر کار با رنگها را نمایش می دهد و می توان توسط آن کد رنگ

مورد نظرا پیداکنید.  

«««««««« Download »»»»»»»

«««««««« Download »»»»»»»

فرمی است که می توانید از آن برای ساخت فرم | About | کمک بگیرید.  

«««««««« Download »»»»»»»

    

        امیدوارم جیگر نظر یادت نره .....................................................

 

 

بدست آوردن ورژن ویندوز (windows version)

 

شاید شما به برنامه هایی برخورده باشید که فقط بر روی یک ورژن خاص windows اجرا شوند.برای اعمال این محدودیت در برنامه هایی که  visual basic نوشته می شوند می توان از تابع API زیر استفاده کرد.به این صورت که ابتدا با این تابع نسخه یا ویرایش windows را پیدا کرده و سپس با یک شرط در برنامه می توان ورژن ویندوز را چک کرده و از اجرا برنامه در یک نسخه خاص windows جلوگیری کرد. 

 

 Private Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
End Type

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
  Dim Info As OSVERSIONINFO, strOs As String
  Dim Retval As Long, Result As String
 
  Me.AutoRedraw = True
  Info.dwOSVersionInfoSize = Len(Info)
  Retval = GetVersionEx(Info)
  If Retval = 0 Then MsgBox "Error": Exit Sub
  Select Case Info.dwPlatformId
     Case 0
        strOs = "Windows 3.x"
     Case 1
       If (Info.dwMinorVersion = 0) Then
         strOs = "Windows 95"
       End If
       If (Info.dwMinorVersion = 10) Then
         strOs = "Windows 98"
       End If
       If (Info.dwMinorVersion = 90) Then
         strOs = "Windows ME"
       End If
     Case 2
       If (Info.dwMajorVersion < 5) Then
         strOs = "Windows NT"
       End If
       If (Info.dwMajorVersion = 5 And Info.dwMinorVersion = 0) Then
         strOs = "Windows 2K"
       End If
       If (Info.dwMajorVersion = 5 And Info.dwMinorVersion = 1) Then
         strOs = "Windows XP"
       End If
  End Select
  Text1.Text = strOs
  Result = Str$(Info.dwMajorVersion) + "." + LTrim(Str(Info.dwMinorVersion))
  Text2.Text = Result
End Sub

نمونه کد

 

حالا دیگه احتیاجی نیست که متن داخل TextBox ها را دستی خالی کنید با کد زیر اگر 10000 تا هم

باشند متن داخل آنها پاک می شه!

'www.learnvb.blogfa.com Private Sub ClearTextBoxes(frmClearMe As Form) Dim txt As Control For Each txt In frmClearMe If TypeOf txt Is TextBox Then txt.Text = "" Next End Sub Private Sub Form_Load() Call ClearTextBoxes(Me) End Sub

توسط این کد می توانید برنامه هاتون را همیشه برروی تمام فرمهای باز دیگر نمایش بدهید(Always On

Top) : فقط کافیست برروی فرمتان دو دکمه قرار دهید و با اجرای برنامه و زدن دکمه اول برنامه همیشه

روی فرم های دیگر باز می شود و با زدن دکمه دوم به حالت اول باز می گردد.

'www.learnvb.blogfa.com Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _ ByVal hWndInsertAfter As Long, ByVal x As Long, y, ByVal cx As Long, _ ByVal cy As Long, ByVal wFlags As Long) As Long Private Const HWND_TOPMOST = -1 Private Const HWND_NOTOPMOST = -2 Private Const SWP_NOMOVE = &H2 Private Const SWP_NOSIZE = &H1 Private Const SWP_NOACTIVATE = &H10 Private Const SWP_SHOWWINDOW = &H40 Private Const TOPMOST_FLAGS = SWP_NOMOVE Or SWP_NOSIZE Private Sub MakeNormal(lngHwnd As Long) SetWindowPos lngHwnd, HWND_NOTOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS End Sub Private Sub MakeTopMost(lngHwnd As Long) SetWindowPos lngHwnd, HWND_TOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS End Sub Private Sub Command1_Click() Call MakeTopMost(Me.hwnd) End Sub Private Sub Command2_Click() Call MakeNormal(Me.hwnd) End Sub

یکی دیگر از توابع Api که می تواند به لیست ما اسکرول اضافه کند :

شما باید در فرم خود یک دکمه و یک لیست قرار دهید و کدها را در برنامه کپی کنید:

'www.learnvb.blogfa.com Private Declare Function SendMessageByNum Lib "user32" Alias _ "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal _ wParam As Long, ByVal lParam As Long) As Long Const LB_SETHORIZONTALEXTENT = &H194 Private Sub Command1_Click() Dim str As String Static x As Long str = InputBox("Enter some text:", "List scroll", _ "A sample item which should invoke the LB_SETHORIZONTALTEXT constant") List1.AddItem str If x < TextWidth(str & " ") Then x = TextWidth(str & " ") If ScaleMode = vbTwips Then x = x / Screen.TwipsPerPixelX SendMessageByNum List1.hwnd, LB_SETHORIZONTALEXTENT, x, 0 End If End Sub

 

نمونه کد

سلام و صد سلام به دوستای جویای علم:

 امروز می خواهیم چند کد را به شما بدهیم که در در برنامه ها خیلی کاربرد دارد

این کد به شما کمک می کند فایلی را از روی هارد دیسک پاک کنید. یک دکمه برروی فرم درگ کرده

 و نام ان را 'cmdDelete' گذاشته و کد زیررا برای آن کپی کنید.

'www.learnvb.blogfa.com Private Sub cmdDelete_Click() Dim strPath As String strPath = InputBox$("Enter file path:") Kill strPath End Sub

سلام برای اینکه ببینیم فایلی وجود دارد یا خیر می توانیم از کد زیر استفاده منیم:

'www.learnvb.blogfa.com Private Sub FileExists() Dim lngRetVal As Long On Error Resume Next strPath = InputBox("Enter Path:", "", "c:/") If Len(strPath) < 0 Then Call MsgBox("Please Insert Path.", vbInformation, "") End If lngRetVal = Len(Dir$(strPath)) If Err Or lngRetVal = 0 Then b = False Else b = True End If If b = True Then Call MsgBox("File is Found.", vbInformation, "") Else Call MsgBox("File is NotFound.", vbInformation, "") End If End Sub Private Sub Command1_Click() Call FileExists End Sub

این کد برای زیباسازی میباشد و کمک می کنه فرم در حالت انیمیشن خارج شود:

'www.learnvb.blogfa.com Sub Startrek(frm As Form) GotoVal = frm.Height / 2 For Gointo = 1 To GotoVal DoEvents frm.Height = frm.Height - 100 frm.Top = (Screen.Height - frm.Height) \ 2 If frm.Height <= 500 Then Exit For Next Gointo horiz: frm.Height = 30 GotoVal = frm.Width / 2 For Gointo = 1 To GotoVal DoEvents frm.Width = frm.Width - 100 frm.Left = (Screen.Width - frm.Width) \ 2 If frm.Width <= 2000 Then Exit For Next Gointo Unload Me End Sub Private Sub Form_Unload(Cancel As Integer) Call Startrek(Me) End Sub