mohammadriano
چهارشنبه 30 آذر 1390, 15:59 عصر
با سلام این کد رو در تاپیک های En جستجوکردم احتمال زیاد میاد سیستم عامل رو گول میزنه و ارتفاع فرم از ارتفاع رزولیشن مانیتور بیشتر میشه
حالا نمی دونم تو VB6 ارور می گرفت گفتم شاید دادنت باشه
اگه بزرگواری این کد رو به VB6 برگردونه یک دنیا ممنون میشم بعدش دیگه فاجعه پرینت در vb6 برای همیشه حل میشه
ببخشید که در تالار VB6 این تاپیک رو نگذاشتم چون احتمالا کسی که دادنت رو میدونه حتما vb6 رو میدونه پس کد رو راحت تر بر میگردونه
Public Class Form1
Private Declare Function MoveWindow Lib "User32.dll" (ByVal hWnd As IntPtr, ByVal x As Integer, ByVal y As Integer, ByVal w As Integer, ByVal h As Integer, ByVal Repaint As Boolean) As Boolean
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.MaximumSize = New Size(5000, 800)
Dim Result As Boolean = MoveWindow(Me.Handle, Me.Left, Me.Top, 5000, 500, True)
End Sub
End Class
ممنون
حالا نمی دونم تو VB6 ارور می گرفت گفتم شاید دادنت باشه
اگه بزرگواری این کد رو به VB6 برگردونه یک دنیا ممنون میشم بعدش دیگه فاجعه پرینت در vb6 برای همیشه حل میشه
ببخشید که در تالار VB6 این تاپیک رو نگذاشتم چون احتمالا کسی که دادنت رو میدونه حتما vb6 رو میدونه پس کد رو راحت تر بر میگردونه
Public Class Form1
Private Declare Function MoveWindow Lib "User32.dll" (ByVal hWnd As IntPtr, ByVal x As Integer, ByVal y As Integer, ByVal w As Integer, ByVal h As Integer, ByVal Repaint As Boolean) As Boolean
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.MaximumSize = New Size(5000, 800)
Dim Result As Boolean = MoveWindow(Me.Handle, Me.Left, Me.Top, 5000, 500, True)
End Sub
End Class
ممنون