طلب كود تكبير رسالة Msgbox لملئ الشاشة

استخدم التصنيف الفرعي ...

في النموذج:

Private Sub Command1_Click()
 TimerId = SetTimer(hwnd, 0, 1, AddressOf TimerProc)
 str_Title = "تكبير"
 MsgBox "مربع اخراج بأبعاد الشاشة", , str_Title
End Sub

في وحدة نمطية:

Declare Function SetActiveWindow Lib "user32" _
 (ByVal hwnd As Long) As Long
Declare Function SetTimer Lib "user32" (ByVal hwnd _
 As Long, ByVal nIDEvent As Long, ByVal uElapse _
 As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" _
(ByVal hwnd As Long, ByVal nIDEvent As Long) _
As Long
Declare Function FindWindowEx Lib "user32" _
 Alias "FindWindowExA" (ByVal hWndParent As _
 Long, ByVal hWndChildAfter As Long, ByVal _
 lpClassName As String, ByVal lpWindowName _
 As String) As Long
Declare Function MoveWindow Lib "user32" _
 (ByVal hwnd As Long, ByVal x As Long, ByVal _
 y As Long, ByVal nWidth As Long, ByVal _
 nHeight As Long, ByVal bRepaint As Long) _
 As Long
Public str_Title$, TimerId&

Sub TimerProc(ByVal hwnd As Long, ByVal uMsg As Long, _
 ByVal uElapse As Long, ByVal lpTimerFunc As Long)
 KillTimer Form1.hwnd, TimerId
 Dim lng_Hwnd&
 lng_Hwnd = FindWindowEx(0, 0, "#32770", _
  Trim(str_Title))
 If lng_Hwnd Then
  SetActiveWindow lng_Hwnd
  MoveWindow lng_Hwnd, 0, 0, Screen.Width / 15, _
  Screen.Height / 15, 1
 End If
End Sub

صحيح 100% يا اخ (مخفي) اووووووووه عفوا (للقراءة فقط)

لوووووووووووووووووووووول حبيت امزح معك

ارجو ان تتقبل مزحتي بكل صدر رحب

اخوكم (((( الدولار ))))

شكرا لك ...

الأخ Read Only

الله يعطيك العافية ويزيدك علما وتوفيقاً .

ولك تحياتي