- توردا
- 332 سائەت
- ئاخىرقى قېتىم
- 2012-11-6
- تىزىملاتقان
- 2010-8-15
- شۆھرەت
- 1241
- تىللا
- 1175
- تۆھپە
- 637
- ھوقۇقى
- 40
- جۇغلانما
- 4495
- ئالبوم
- 0
- بلوگ
- 0
- خاتىرە
- 1
- يازما
- 201
- تېما
- 15
- نادىر
- 0
- ھەمبەھر
- 0
- UID
- 237
- تۆھپە
- 637
- تىللا
- 1175
- شۆھرەت
- 1241
|
VB6.0نى قوزغىتىپ، كۆزنەككە بىر دانە كونۇپكا سىزىپ قوش چېكڭمڭز ۋە تۆۋەندىكى كونى يېزىپ ئىجىرا قىلىمىز:- Option Explicit
- Private Const RDW_INVALIDATE = &H1
- Private Const RDW_UPDATENOW = &H100
- Private Declare Function RedrawWindow Lib "user32" (ByVal hwnd As Long, ByVal lprcUpdate As Long, ByVal hrgnUpdate As Long, ByVal fuRedraw As Long) As Long
- Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName 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 "SetWindowTextW" (ByVal hwnd As Long, ByVal lpString As Long) As Long
- Private Sub Command1_Click()
- Dim lLen As Long, sTitle As String, hTray As Long, hBtn As Long
-
- sTitle = ChrW$(1574) & ChrW$(1735) & ChrW$(1610) & ChrW$(1594) & ChrW$(1735) & ChrW$(1585)
- hTray = FindWindow("Shell_TrayWnd", vbNullString)
- hBtn = FindWindowEx(hTray, 0, "Button", vbNullString)
- SetWindowText hBtn, StrPtr(sTitle)
- MsgBox "修改完成,现在请观察变化!"
- RedrawWindow hBtn, 0, 0, RDW_UPDATENOW Or RDW_INVALIDATE
- End Sub
مەزمۇننى كۆچۈرۈۋېلىش قانداق، بولامدىكەن؟! |
|