[ Visual Basic 6 ] ادخل هنا وقم بتصميم برنامج لتغيير كلمة ابدأ

تم تحميل الصفحة في 0,5661654 ثانية
ادخل هنا وقم بتصميم برنامج لتغيير كلمة ابدأ
إنضم
4 يوليو 2009
المشاركات
1,400
الإعجابات
242
النقاط
63
السلام عليكم ورحمة الله وبركاته



اليوم سنقوم بتصميم برنامج تغيير كلمة ابد أ



لنبدأ


الادوات

_ زر Command واحد

_ حقل text

ضع هذا الكود في الحدث genreal


كود:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClasstext As String, ByVal lpWindowtext As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SetWindowtext Lib "user32" Alias "SetWindowtextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Const WM_SETtext = &HC
الكود الثاني في الزر Command


كود:
Private Sub Command1_Click()
Dim tWnd As Long, bWnd As Long
tWnd = FindWindow("[B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B][B][COLOR="Red"]*[/COLOR][/B]l_TrayWnd", vbNullString)
'Get the start-button's window handle
bWnd = FindWindowEx(tWnd, ByVal 0&, "BUTTON", vbNullString)
SendMessage bWnd, WM_SETtext, &O0, Text1.Text
'SetWindowtext bWnd, text1.text
End Sub
s h e l l مكان النجوم





كما في المثال









وبالتوفيق للجميع

لا تنسى الرد حتى نتواصل اكثر
 
إنضم
16 ديسمبر 2007
المشاركات
693
الإعجابات
8
النقاط
0
رد: ادخل هنا وقم بتصميم برنامج لتغيير كلمة ابدأ

يعطيك العافيه خيووووووووو جاري تطبيق بعد مايخلص تحميل برنامج الفيوجل بكس


هع هع وان شاء الله يضبط معي

لي رجعه اذا ماعرفت شي

اوكي خيووووووو
:8:
أحلى تقيم لعيونك
 
إنضم
16 ديسمبر 2007
المشاركات
693
الإعجابات
8
النقاط
0
رد: ادخل هنا وقم بتصميم برنامج لتغيير كلمة ابدأ

أخوي وين احصل هذا الحدث

ضع هذا الكود في الحدث genreal<<< عشان احط الكود

بتعبتك معي شوي لاني مبتدي
 

newlogic

Beginner Developer
rank
إنضم
30 يونيو 2009
المشاركات
77
الإعجابات
24
النقاط
0
رد: ادخل هنا وقم بتصميم برنامج لتغيير كلمة ابدأ

جميع دروسك رائعه

واصل بدون فواصل تستاهل كل خير :32:
 
إنضم
20 يونيو 2007
المشاركات
26
الإعجابات
3
النقاط
0
رد: ادخل هنا وقم بتصميم برنامج لتغيير كلمة ابدأ

يسلمووووو وعاشت الايادي خيو
 
إنضم
21 يوليو 2009
المشاركات
1,477
الإعجابات
140
النقاط
0
رد: ادخل هنا وقم بتصميم برنامج لتغيير كلمة ابدأ

جزاك الله الجنة

:32::32:

++
 

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل