سؤال جديد:
كيف أرسل بريد إلكتروني عن طريق نقرة زر؟
كما يكون مثلا في كلمة راسلني في المواقع أو اتصل بنا...
|
سؤال جديد:
كيف أرسل بريد إلكتروني عن طريق نقرة زر؟
كما يكون مثلا في كلمة راسلني في المواقع أو اتصل بنا...
|
سؤال جديد
الان كنت ببرمج برنامج الساعه المؤقته ... ابرمجه بطريقه مبتداه المهم ...
لكن هناك شئ خاطئ ... فالبرنامج لا يعمل
لذا هذه هي الاكواد ... اخبروني اين الخطأ
هذا برمجه الــ Timer
كود:Label3.Text = Label3.Text + 1 If Label3.Text = "60" Then Label2.Text = Label2.Text + 1 Label3.Text = "00" Else If Label2.Text = "60" Then Label1.Text = Label1.Text + 1 Label2.Text = "00" End If End If
وهذا برمجه زر Start
كود:Timer1.Interval = 1000
وهذا زر Stop
ويوجد خطا بالبرمجه الخاصه به
كود:Timer1.Interval = 0
|
السلام عليكم
حابة أسأل عن برنامج antivir
فجأة حمل نفسه في الجهاز ويبلك لي معضم المواقع ويعلق الجهاز
ولما بحذفه بالطريقة العادية ما ألقاه كبرنامج مضاف في اللست ..
؟؟؟ جهازي يعلق 10 مرات في النص ساعة من جد طفشت
|
المعذرة لا يمكننا الإجابة على هذه الأسئلة فهناك موضوع مخصص لذلك يمكنك زيارته من هنا:
http://msoms-anime.net/showthread.php?t=115083
راجعي قوانين الموضوع
|
أهلا عزيزي أحمد موساااا...إإحم مسعد ...
سأتكلم فيما أعلم فقط:
هذا الجزء من الكود الخاص بالتايمر:
فيفترض جعلها بعد End If كاستثناء آخر له End If خاصة به...كود:If Label2.Text = "60" Then Label1.Text = Label1.Text + 1 Label2.Text = "00"
لتصبح هكذا:
..كود:Label3.Text = Label3.Text + 1 If Label3.Text = "60" Then Label2.Text = Label2.Text + 1 Label3.Text = "00" End If If Label2.Text = "60" Then Label1.Text = Label1.Text + 1 Label2.Text = "00" End If
أيضا تلميح....
لا تكتب else في سطر و If في سطر آخر فهي قاعدة مستقلة تضطر معها لكتابة End If أخرى كما فعلت واكتب Else If وأكمل بعدها ولن تضطر لكتابة End If لأكثر من مرة....
أما باقي الأكواد فلا أعرف عنها شيئا....
رحم الله أخونا إسلام لو يزور هذا الموضوع...أو حتى أخونا مازن...كان الله في عونهم...
|
السلام عليكم
أخوي مشكلتي أني حملت برنامج Kaspersky Internet Security 2010
وبعد ماسويت له تنصيب وتعريب أعدت تشغيل الكمبيوتر فأردت الدخول على البرنامج ولكن للأسف لم أستطع
فكيف أتمكن من الدخول إلى البرنامج واذا كان فيه مشكلة فما الحل ؟ وجزاك الله خيرا
|
أخي العزيز هناك موضوع مخصص لهذه الأسئلة..لعل التشابه في عناوين الموضوع هو السبب...
هذا هو رابط الموضوع:
http://msoms-anime.net/showthread.php?t=121044
حل مشكلتك سأضعه هناك بإذن الله...
|
...السلام عليكم
متى ستكمل دورة البرمجة مسيرتها !!
والسلام عليكم
|
غير معقول يا جماعة أين الرد على الأسئلة...والمساعدة
إذا لم تم فتح هذا الموضوع....
|
المعذرة ياشباب ^_^
أنا حاليا لا أستطيع تلبية الإستفسارات بشكل عام بسبب الإمتحانات بالكاد أتمكن من الرد على المواضيع
أما الأخ إسلام فهو يعمل على موضوع حاليا ليكون المشاركة رقم 5555 له XDDD
لذا لن يستطيع الرد على أي موضوع قبل هذا
سأحاول الرد فيما بعد إن أمكنني ^^"
المعذرة
|
هههههه...مبارك عليك يا إسلام...
ما أجمل كلمة الاعتذار...تشعر بالراحة...
شكرا لك مازن
|
سؤال جديد:كيف أنشئ مجلدا جديدا بنقرة button في البرنامج؟
وبالطبع أنا من يحدد اسم المجلد
|
سؤال جديد:
كيف يمكنني نسخ أوامر معينة لأداة أخرى؟
مثلا لدي Button1 و Button2...
يحتوي Button1_click على عدد من الأوامر...
وأريد لـ Button2_click أن يكون لها نفس أوامر Button1_click لكن دون نسخ...
وذلك كي لا يزيد حجم البرنامج...وأيضا عند الحاجة لتعديل الكود يكون لدي مرجع واحد فقط...أيضا لأتمكن من استخدام نفس الأمر في عدد من الأدوات...
اللغة:Visual Basic 9 (2008) Professional
|
أسئلة جديدة:
* كيف يمكنني إعطاء الأمر لزر بتصغير الفورم إلى جوار الساعة؟
* كيف يمكنني التحكم بأوامر أزرار الإغلاق والتصغير والتكبير (Control Box) الإفتراضية؟
* كيف يمكنني التحكم بأوامر رمز البرنامج المصغر بجوار الساعة؟ (النقر باليمين-باليسار-النقر المزدوج-إلخ)
|
في الجنرال للكود ضع هذا مثلاً
[PHP]Public Sub wahdain()
MsgBox "Hello !!", vbInformation
Me.WindowState = vbMinimized
End Sub[/PHP]
الآن ضع الأمر [PHP]call Wahdain[/PHP] في حدث النقر لكل من Button1 و Button2
وستجد انه ينفذ جميع الأوامر في كلا الزرين وهي إظهار رسالة ثم تصغير النموذج أو الفورم ويمكن وضع الأوامر التي تريد ^^
|
ضع هذ الكود في موديول
[PHP]Option Explicit
Declare Function shell_notifyicon Lib "shell32.dll" Alias _
"Shell_NotifyA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_MBUTTONDBLCLK = &H209
Public Const WM_MBUTTONDOWN = &H207
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_RBUTTONDBLCLK = &H206
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_MOUSEMOVE = &H200
Public Const NIF_ICON = &H2
Public Const WM_COMMNOTIFY = &H44
Public Const NIF_MESSAGE = &H1
Public Const NIF_TIP = &H4
Public Const NIM_ADD = &H0
Public Const NIM_DELETE = &H2
Public Const MAX_TOOLTIP As Integer = 64
Type NOTIFYICONDATA
cbsize As Long
hwind As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
h As Long
szTip As String * MAX_TOOLTIP
End Type[/PHP]وفي الجنرال للنموذج ضع هذا الكود
[PHP]Dim nfData As NOTIFYICONDATA[/PHP]وكود وضع الأيقونة بجوار الساعة ضعه في بداية حدث تحميل الفورم
[PHP]With nfData
.hwind = Form1.hWnd
.uID = Form1.
.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
.uCallbackMessage = WM_MOUSEMOVE
.h = Form1..Handle
.szTip = "أكتب هنا إسم برنامجك والذي سيظهر كتلميح عند وقوف الماوس على الأيقونة بجوار الساعة" & Chr$(0)
.cbsize = Len(nfData)
End With
[/PHP]وكود الإستدعاء ووضع الأيقونة بجوار الساعة هو
[PHP]Call shell_notifyicon(NIM_ADD, nfData)[/PHP]ضعه في المكان الذي يعجبك والأفضل ان يكون في حدث تحميل الفورم ^^
وأيضا كود إزالة الأيقونة من جوار الساعة
[PHP]Call shell_notifyicon(NIM_DELETE, nfData)[/PHP]
|
هذا الكود مشروحاً ^_^
[PHP]Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case (X \ Screen.TwipsPerPixelX)
'عند مرور الماوس على الأيقونة
Case &H200
MsgBox "لقد مر الماوس على الأيقونة ^_^", vbInformation
'عند النقر على الأيقونة بالفأرة نقرة واحدة
Case &H202
Me.Caption = "WaHdAiN"
'عند النقر المزدوج على الأيقونة بالفأرة
Case &H203
If WindowState = vbMinimized Then
Me.WindowState = vbNormal
Me.Visible = True
End If
'عند النقر بالزر الأيمن على الأيقونة
Case &H205
PopupMenu Mnu_File
End Select
End Sub [/PHP]
إستبدل كلمة Mnu_File بإسم القائمة التي تريد ظهورها عند النقر بالزر الأيمن (يجب ان تكون قد عملت هذه القائمة مسبقا)
|
هذا الكود بالنسبة لزر التصغير والإستعادة ^^
[PHP]Private Sub Form_Resize()
If WindowState = vbMinimized Then Me.Visible = False
If WindowState = vbNormal Then Me.Visible = True
End Sub[/PHP]وهذا لوضع الأوامر التي ستحدث عند الضغط على زر إغلاق
[PHP]
Private Sub Form_Unload(Cancel As Integer)
Call shell_notifyicon(NIM_DELETE, nfData)
Cancel = True
End Sub[/PHP]
المفضلات