چطور ويندوز رو اكتيو كنيم يا ساده تر به صورت قانونيش كنيم و از امكانات CD هاي اورجينال ويندوز استفاده كنيد.
با سه شما هم گزاشتم شايد به كارتون اومد
از منوي Start بر روي Run رفته و در آن عبارت regedit را تايپ كنيد و Enter بزنيد تا ويرايشگر رجيستري شما باز شود.
سپس در پنجره باز شده به آدرس زير برويد
HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/WindowsNT/CurrentVersion/WPAEvents
حالا از قسمت سمت راست پنجره روي گزينه OOBETimer دوبار کليک کنيد.
سپس مقدار FF را به 00(صفر) تغيير دهيد و روي دكمه Ok کليک کنيد و پنجره رجيستري رو ببنديد.
اكنون مانند مرحله اول از منوي Start به Run رفته در آن دستور cmd رو تايپ کنيد و روي دکمه Ok کليک کنيد.
در پنجره باز شده دستور زير رو بنويسيد :
%systemroot%/system32/oobe/msoobe.exe /a
چند لحظه صبر کنيد تا پنجره اي به نام Activate Windows باز شود.
حالا گزينه دوم (Yes,I want to telephone a customer service representative to activate Windows) رو انتخاب کنيد و در پايين پنجره روي دکمه Next کليک کنيد.
حال از پنجره جديد از قسمت پايين روي دکمه Change product key کليک کنيد.
سپس در پنجره جديد کد زير رو وارد کنيد :
B7R7P-J63JP-2J7VH-W3TDJ-PDP7T
بعد از نوشتن اين کد روي دکمه Update کليک کنيد و سپس پنجره رو ببنديد و سيستم رو يکبار Reboot کنيد.
بعد از restart سيستم به منوي Start رفته و run رو انتخاب کنيد و مثل قبل دستور cmd رو بنويسيد و روي دکمه Ok کليک کنيد و دوباره مانند بالا در پنجره داس عبارت زير رو تايپ كنيد:
%systemroot%/system32/oobe/msoobe.exe /a
در پايان بايد پيغام Windows is already activated.click ok to exit رو مشاهده کنيد.
پايان
چطور از طريق داس يك يوزر جديد بسازيم
از منوي Start به Run رفته در آن دستور cmd رو تايپ کنيد و روي دکمه Ok کليک کنيد.
حالا در پنجره داس كد زير را بنويسيد
Net user abbas 123456 /add
از دستور بالا abbas نام يوزر جديد و 123456 زمر اون يوزر بوده
براي تبديل يوزر بالا به يك يوزر مدير يا همون ratort administ
دوباره با پنجره داس برويد و دستور زير را تايپ كنيد
Net localgroup abbas administrators /add
پايان
بريد تو نوت پد و جمله زير را توش تايپ كنيد
Iran win via atoms
حالا فايل را ذخيره كنيد و دوباره بريد روش و بازش كنيد چي ميبينيد (چي فكر مي كنيد)
(پيروزي ايران از طريق انرژي هسته اي )
پايان
چطور بيزي و دايره را طراحي كنيم
براي ساخت منحني ها و دايره و بيزي ها شما به ابزار زير روي فرم نياز داريد
Text1
Text2
Text3
Text4
Command1
Command2
حالا كد زير را به قسمت كد نويسي فرمتون پيست كنيد
Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Sub Command1_Click()
X1 = Text1.Text
Y1 = Text2.Text
X2 = Text3.Text
Y2 = Text4.Text
If Text1 <> "" And Text2 <> "" And Text3 <> "" And Text4 <> "" Then
a = Ellipse(Form1.hdc, X1, Y1, X2, Y2)
Else
MsgBox ("Enter The x1,y1.x2,y2")
Text1.SetFocus
End If
End Sub
Private Sub Command2_Click()
Form1.Cls
Text1.Text = "10"
Text2.Text = "10"
Text3.Text = "100"
Text4.Text = "200"
End Sub
در تكس باكس ها مختصات ها را بنويسيد و روي باتون ها كليك كنيد تا بيزي ها ترسيم شوند
پايان
چطور عكس داخل پيكچر بوكس را اسكرول كنيم (البته كامپونتي هم براي اين كار وجود دارد)
براي شروع دوتا picturebox و VScroll1 و HScroll1 را روي فورم بگزاريد
Picture1
Picture2
VScroll1
HScroll1
Picture2 را داخل picture1 بگزايد براي picture2 عكسي انتخاب كنيد
حالا كد زير را به قسمت كدنويسي فرم كپي كنيد
Private Sub Form_Load()
picture2.AutoSize =True
HScroll1.Max = Picture2.Width - Picture1.Width
VScroll1.Max = Picture2.Height - Picture1.Height
End Sub
Private Sub HScroll1_Change()
Picture2.Left = Not HScroll1.Value
End Sub
Private Sub VScroll1_Change()
Picture2.Top = Not VScroll1.Value
End Sub
حالا شما مي توانيد عكستان را با استفاده از اسكرول بارهاي كه گزاشتيد اسكرول كنيد
پروژه بالا كاملا كاربردي بوده
پايان
چطور براي ابزار روي فرم را اسكرول كنيم ..ساده تر بگم ابزاري مانند تكست باكس يا كامند باتون و يا
هر چيز ديگر را روي فرم اسكرول كنيم
براي اين كار كه يك پروژه كاملا كاربردي است ابزار زير را لازم داريم انها را روي فرم بگزاريد
Picture1
Picture2
VScroll1
Picture2 را داخل picture1 بگزايد . در روي picture2 هر چي خاستيد بگزاريد
مثلا تكس باكس يا چند تا باتون و غير بگزاريد
حالا كد زير را به قسمت كد نويسي فرمتان پيست كنيد
Private Sub Form_Load()
VScroll1.Min = 0
VScroll1.Max = (Picture2.Height - Picture1.Height) / 100
End Sub
Private Sub VScroll1_Change()
Picture2.Top = -VScroll1.Value * 100
End Sub
پايان
چطور برنامه اي كه تمام اعداد سه رقمي كه دو طرف انها يكسان است را توليد كنيم
مثل 121 و 212 و 464و 838و 151 و غيره
براي اين كار ابزار زير را روي فرم بگزاريد
Command1
List1
حالا كد زير را درقسمت كد نويسي فرمتان پيست كنيد
Private Sub Command1_Click()
For i = 1 To 9
For j = 0 To 9
List1.AddItem (i * 100 + j * 10 + i)
Next
Next
End Sub
اگه حالا روي كامند باتون كليك كنيد ليست تمامي اعداد 3 رقمي كه اول و اخر انها يكسان است را
در ليست باكس ميبينيد
پايان
چطور فرمي كه borderstyle ان روي حالت بدون نوار بالا يا مقدار 0 است رو جابه جا كنيم
من براي جابه جا كردن فرم هاي كه جابه جا نمي شوند و يا نمي توان با كليك كردن روي بدنه انها
فرم را جابه جا كرد 3 روش گوناگون گزاشتم كه روش پايين كاملا متفاوت و با كد هاي بالا مرتبت بوده
اگه شما برنامه هاي بالا را انجام داده باشيد ديگه انجام اين پروژه براي شما لازم نبوده مگه براي دونستن
روشي ديگر
خوب براي اين كه فرمي جديد ايجاد كرده و در قسمت خصوصيالت فرم
Borderstyle ان را روي صفر (0) بگزاريد
حالا كد زير را به قسمت كد نويسي فرمتان پيست كنيد
Dim x1, y1 As Integer
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Me.Left = IIf(X > x1, Me.Left - (x1 - X), Me.Left + (X - x1))
Me.Top = IIf(Y > y1, Me.Top - (y1 - Y), Me.Top + (Y - y1))
End If
End Sub
پايان
چطور نوشته اي را در كپشن فرم به صورت كاركتر كاركتربه نمايش در اوريم
خوب معلومه كه از توضيح بالا زياد متوجع نشديد پس دست به كار بشيد تا خدتون ببينيد منظورم چيه
ايزار زير را روي فرم انتقال دهيد
Timer1
حالا كد زير را به قسمت كدنويسي فرمتان پيست كنيد
Private Sub Form_Load()
Me.Caption = ""
Timer1.Enabled = True
Timer1.Interval = 100
a = 1
End Sub
Private Sub Timer1_Timer()
ShowString = "SALAM MAN ABBAS HASTAM IN BARNAME FAGHAT TEXT AST"
Me.Caption = Me.Caption & Mid$(ShowString, a, 1)
If a = Len(ShowString) Then
Timer1.Enabled = False
Else
a = a + 1
End If
End Sub
پايان
چطور اكتيويس ها و dll ها را رجستر كنيم كه البته از طريق داس رو همه شما فكر كنم بلد باشيد
اما خودتون خوب مي دونيد كه از طريق داس اصلا هسش نيست پس اگه مي خواهيد راحت شويد از اين
موضوع دست به كار شويد
وارد notepad شويد و نوشته هاي زير را داخلش پيست كنيد
REGEDIT4
; ActiveX DLLs
[HKEY_CLASSES_ROOT\.dll]
@="dllfile"
[HKEY_CLASSES_ROOT\dllfile\shell\regdll]
@="Register ActiveX DLL"
[HKEY_CLASSES_ROOT\dllfile\shell\regdll\command]
@="regsvr32.exe \"%L\""
[HKEY_CLASSES_ROOT\dllfile\shell\unregdll]
@="Unregister ActiveX DLL"
[HKEY_CLASSES_ROOT\dllfile\shell\unregdll\command]
@="regsvr32.exe /u \"%L\""
; ActiveX Controls
[HKEY_CLASSES_ROOT\.ocx]
@="ocxfile"
[HKEY_CLASSES_ROOT\ocxfile\shell\regocx]
@="Register OCX Control"
[HKEY_CLASSES_ROOT\ocxfile\shell\regocx\command]
@="regsvr32.exe \"%L\""
[HKEY_CLASSES_ROOT\ocxfile\shell\unregocx]
@="Unregister OCX Control"
[HKEY_CLASSES_ROOT\ocxfile\shell\unregocx\command]
@="regsvr32.exe /u \"%L\""
; ActiveX EXEs
[HKEY_CLASSES_ROOT\.exe]
@="exefile"
[HKEY_CLASSES_ROOT\exefile\shell\regexe]
@="Register ActiveX EXE"
[HKEY_CLASSES_ROOT\exefile\shell\regexe\command]
@="\"%L\" /regserver"
[HKEY_CLASSES_ROOT\exefile\shell\unregexe]
@="Unregister Active EXE"
[HKEY_CLASSES_ROOT\exefile\shell\unregexe\command]
@="\"%L\" /unregserver"
حالا بايد فايل مورد نظر را ذخيره كنيد فايل رو با نام دلخواهي و با پسوند reg ذخيره كنيد
نمونه ( abbas.reg )
حالا رو فايل كليك كنيد در پنجره باز شده رو yes كليك كنيد همينطور در پنجره بعدي
حالا كار ما تموم شده ميتوانيد فايلي كه ساختيد رو پاك كنيد
حالا اگه روي يك فايل dll يا اكتويس برويد و كليك راست كنيد دو تا گزينه به منو شما اضافه مي شود
كه يكي براي رجستر كردن و ديگري براي خارج كردن از ريجستر است
پايان
با استفاده از اين ترفند ميتونيد نام سازندگان ويژوال بيسيک را مشاهده کنيد
1. وارد ويژال بيسيك شويد
2. در نوار ابزار (Toolbar) راست کليک کرده، گزينه Customize را انتخاب کنيد.
3. در پنجره باز شده به سربرگ Commands برويد.
4. در ليست Categories گزينه Help را انتخاب کنيد.
5. در ليست Commands گزينه About Microsoft Visual Basic را انتخاب کرده و به قسمتي از
نوار ابزار( (Toolbar ويژال بيسيك درگ (Drag) کنيد تا دکمه اي با همين نام ساخته شود.
6.حالا بدونه اين كه پنجره Customize را ببنديد با راست کليک کردن روي دکمه ساخته شده، خاصيت
Name آن را به Show VB Credits تغيير دهيد.( بهتره كه نام جديد را كپي پيست كنيد براي پيست از
Ctrl + V استفاده كنيد
7. پنجره Customize را ببنديد.
8. روي دکمه ساخته شده کليک کرده و در پنجره باز شده ليست تمامي كساني كه در ساخت و اماده كردن
ويژال بيسيك نقش داشته اند را ببينيد .
پايان.
چطور اعداد داخل تكست بكس را 3 رقم 3 رقم جدا كنيم (كاربردي)
خوب براي شروع يك textbox روي فرم قرار داده و كد كد زير را به قسمت كد نويسي فرمتان پيست
كنيد
Private Sub Text1_Change()
Text1.Text = Format(Text1.Text, "##,0")
End Sub
خوب حالا برنامه را اجرا كرده و داخل تكست باكس عدد تان را وارد كنيد مي بينيد كه 3 رقم 3 رقم جدا
مي شوند
پايان