دراكولا 2002

تشغيل ملفات الصوت بدون مشاكل تحتاج الى عنصر التحكم الخاص بالميديا بلير Always include the "Close" statement before "Open" MMControl1.Command = "Close" MMControl1.Filename = "C:1.mid" MMControl1.Command = "Open" MMControl1.Command = "Play"

التحويل بين العرض والادخال في مربع نص 1. Put a label on the form called 'lblOVR' 2. Put this code in KeyUp event of Form Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyInsert Then If lblOVR = "Over" Then lblOVR = "Insert" Else l…

اضافة ميزة التراجع لمربع نص و ليستا 'Windows API provides an undo function 'Do the following declares: Declare Function SendMessage Lib "User" (ByVal hWnd As _ Integer, ByVal wMsg As Integer, ByVal wParam As _ Integer, lParam As Any) As Long Global Const WM_US…

نسخ نص من المفكرة الى البرنامج 'Select Text in txtBox & copy from clipboard txtBox.SelText = Clipboard.GetText 'Or replace entire text txtBox.Text = Clipboard.GetText

نسخ نص الى الحافظة ClipBoard 'First clear the clipboard Clipboard.Clear 'Select Text in txtBox & copy to clipboard Clipboard.SetText txtBox.Text, vbCFText

كيفية برمجة شريط الادوات ToolBar Private Sub Toolbar1_ButtonClick(ByVal Button As Button) 'Handle button clicks Select Case Button.Key Case Is = "Exit" 'If user clicks the No button, stop Exit If MsgBox("Do you want to exit?", vbQuestion + vbYesNo + _ vbDefaul…

حساب العمر بالاعتماد على تاريخ الميلاد 'Convert text to Date Dim Birth as Date Birth = DateValue(txtDOB) 'Calculate age Dim Age as Integer Age = Int(DateDiff("D", Birth, Now) / 365.25)

التحقق من التاريخ بالسنوات Public Function ValidDate(MDate) 'Purpose: Check for 4 digit yyyy DATE 'Input: String from text box 'Output: True or False 'Default is false ValidDate = False 'Exit if length less than "m/d/yyyy" If Len(MDate) < 8 Then Exit Function …

اجراء معالجة الاخطاء 'Begin error handle code On Error GoTo ErrHandler 'Insert code to be checked 'Stop error trapping & exit function On Error GoTo 0 Exit Function ErrHandler: Dim strErr As String strErr = "Error " & Err.Number & " " & Err.Description MsgBox …

فتح موقع او بريد الكتروني 'Put this in the click event of a control Dim iRet As Long Dim Response As Integer Response = MsgBox("You have chosen 'www.rxkinetics.com', " & vbCrLf & "which will launch your web browser and" & vbCrLf & "point you to the Kinetics we…

تدوير العدد الى اقرب 100 او 10 او 1000 'Example - round to nearest 100 Round(RatioBolus * Val(txtDW), 100) 'Put this in BAS module Public Function Round(Dose, Factor) 'Purpose: Round a dose 'Input: Dose, Factor (10, 100, 1000, etc) 'Output: Rounded dose Dim Te…

وضع صورة صغيرة في قائمة 'Add a picturebox control. 'Set 'Autosize' to 'True' with a bitmap (not an Icon) 'at a maximum of 13X13. 'Place these Declarations in BAS module Private Declare Function VarPtr Lib "VB40032.DLL" (variable As Any) As Long Private Declare…

انشاء قوائم خلال تشغيل البرنامج Dim index As Integer index = mnuHook.Count Load mnuHook(index) mnuHook(index).Caption = "New Menu Entry" mnuHook(index).Visible = True

كيفية تشفير نص Public Function Encrypt(ByVal Plain As String) For I=1 To Len(Plain) Letter=Mid(Plain,I,1) Mid(Plain,I,1)=Chr(Asc(Letter)+1) Next Encrypt = Plain End Sub Public Function Decrypt(ByVal Encrypted As String) For I=1 to Len(Encrypted) Letter=Mid(Enc…

نسخ محتويات مربع نص الى مربع نص اخر If you have VB6.0 you can use the Replace Function to easily replace any Character(s) with something else, eg. Text2 = Replace(Text1, vbCrLf, "" & vbCrLf) Otherwise, you'll need to step though the Text yourself checking for …

كيف تصنع قائمة فرعية من خلال زر امر First, create a menu with the menu editor. It should look like this: Button Menu (Menu name: mnuBtn, Visible: False - Unchecked) ....SubMenu Item 1 (Menu name: mnuSub, Index: 0) ....SubMenu Item 2 (Menu name: mnuSub, Index: …

كيف تعرف اذا تم تغيير محتويات TextBox Private bChanged As Boolean Private Sub Text1_Change() bChanged = True End SubPrivate Sub Form_Unload(Cancel As Boolean) If bChanged Then If Msgbox("Save Changes?", vbYesNo, "Save") = vbYes Then 'Save Changes Here. End If …

كيف تضع محتويات ملف في ليستا Private Sub Command1_Click() Dim StringHold As String Open "C:test.txt" For Input As #1 List1.Clear While Not EOF(1) Input #1, StringHold List1.AddItem StringHold Wend Close #1 End Sub

هذا الكود لمعرفة البارامترات التي يتم تمريرها للبرنامج في سطر الأوامر : Function GetCommandLine(Optional MaxArgs) Dim C, CmdLine, CmdLnLen, InArg, I, NumArgs If IsMissing(MaxArgs) Then MaxArgs = 10 End If ReDim ArgArray(MaxArgs) NumArgs = 0: InArg = False CmdL…

هذا الكود يقوم بجمع الأرقام الموجود في Text1 و Text2 ويضع الناتج في Label1 Label1.Caption = Val(Text1.Text) + Val(Text2.Text) وهذا الكود يقوم بطرح ال Text1 من ال Text2 ويضع الناتج في ال Label1 Label1.Caption = Val(Text1.Text) - Val(Text2.Text) هذا الكود يقوم ب…