_ & ";CnnStr = "Provider=SQLOLEDB.1
_ & ";Persist Security Info=True"
_ & ";User ID=UserName"
_ & ";PassWord=PassWord"
_ & ";Initial Catalog=DataBase Name"
"Data Source=Server Name"
Function determinant(Matrix() As Single, Norder As Integer, deter As SingleDim k, k1, i, j) As Integer
Dim save As Single
Dim check As Boolean
deter = 1
For k = 1 To Norder
If Matrix(k, k) = 0 Then
j = k
Do
check = True
If Matrix(k, j) = 0 Then
If j = Norder Then
deter = 0
Exit Function
End If
check = False
j = j + 1
End If
If Matrix(k, j) <> 0 Then
For i = k To Norder
( save = Matrix(i, j
( Matrix(i, j) = Matrix(i, k
Matrix(i, k) = save
Next i
deter = -deter
End If
Loop While check = False
End If
( deter = deter * Matrix(k, k
If k - Norder < 0 Then
k1 = k + 1
For i = k1 To Norder
For j = k1 To Norder
(( Matrix(i, j) = Matrix(i, j) - (Matrix(i, k) * Matrix(k, j) / Matrix(k, k
Next j
Next i
End If
Next k
End Function
خط زیر را در قسمت General بنویسید
(Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long
از این به بعد در هر روال با نوشتن فرمان Sleep و وارد کردن مقدار تاخیر با واحد میلی ثانیه تاخیر مورد نظر ایجاد میشود.
مثال:
Sleep 2000
۲ ثانیه تاخیر
Private Sub Command1_Click
Form1.Controls.Add "VB.CommandButton", "txtText", Form1
With Form1!txtText
Visible = True
Top = 100
Left = 100
Width = 4000
Height = 500
Font.Size = 18
"Caption = "Command1
End With
End Sub
لطفا قبل از خصوصیتها علامت نقطه قرار دهید.
نمایش دادن پیغام در هنگام بالا آمدن ویندوز
اگر بخواهید در هنگام بوت شدن ویندوز ایکس پی یک پیغام خوش آمد گویی یا هر پیغام دیگری که لازم باشد به اطلاع
کاربران برسد به نمایش در آید به این ترتیب عمل کنید
:به کلید زیر بروید
:HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsNTCurrent VersionWinlogon
را با هر اسم دیکری که میخواهید روی پنجره پیغامتان باشد عوض کنید
. کلید legalnoticecaption کلیدرا به هر پیغامی که میخواهید دردل پنجره ی پیغام به نمایش درآید تغییر دهید کامپیوترتان را از نو
Legalnoticetextبوت کنید تا تغییرات را ملاحظه نمایید
.به نام خدا
دانشجوی گرامی
لطفا اگر انتقاد یاپیشنهادی در مورد کلاس ها دارید نظر خود را بامن درمیان قرار دهید.
با تشکر
علیرضا شیرمحمدی یزدی
کد:
Option Explicit
Private Declare Function SendMessage _
Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Private Declare Function ExitWindowsEx _
Lib "user32" _
(ByVal uflags As Long, _
ByVal dwReserved As Long) As Long
Private Const EWX_Logoff = 0
Private Const EWX_Force = 4
Private lngNum As Long
Private Sub cmdLogoff_Click
ExitWindowsEx EWX_Logoff, ByVal 0&
End Sub
مخفی کردن سطل زباله :
اگر بخواهید یک میز گار تر و تمیز داشته باشید شاید بهتر باشد سطل آشغال را از آن بردارید از آن جا که این کار
مستلزم پاک کردن یک کلید در رجیستری میباشد توصیه میکنم قبل از این کار یک نسخه پشتیبان از این کلید بگیرید
.خوب حالا به سراغ کلید زیر بروید
:HKEY_LOCAL_MACHINESoftwareMicrosoftWindowscurrent version ExplorerDesktopNamespace
اکنون کلیدی که در قاب سمت چپ با این برچسب مشخص شده است حذف کنید
:{645ff040-5081-101b-9f08-00aa002f954e}
این کار باعث از بین رفتن کلی سطل زباله نمیشود اما جلوی دسترسی کاربران به آن را میگیرد
.