شخصی از این کد سر در میاره ممکنه توضیح بده ؟

[mohammadriano]

با سلام این کد رو در تاپیک های 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


ممنون

[karimkpg]

کد vb6 این تکه برنامه رو می تونی ببینی ولی با این API تو vb6 نمی تونی فرم رو به هر اندازه ای که می خوای بزرگ کنی

Private 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
Private Sub Form_Load()
Dim bl As Boolean
b1=MoveWindow (Me.hwnd, 0, 0, 5000, 200, 0)
End Sub
چون در vb6 ، فرم متد (Me.MaximumSize = New Size(5000, 800 رو نداره

[mohammadriano]

با تشکر از شما
آقا ارور میده

[mohammadriano]

ممنون میشم راهنمایی کنید

[karimkpg]

با تشکر از شما
آقا ارور میده

بابا من هم تو سون هم تو ایکس پی اجرا کردم هیچ مشکلی نداشت لطفا متن خطا رو بگو ...

[CsT]

میخوای چیکار کنی؟ فرمت به اندازه صفحه اگه میخوای باشه از این استفاده کن!


Me.Move 0, 0, Screen.Width, Screen.Height

[mohammadriano]

با تشکر از شما اصلا نمی خوام فرم اندازه صحفه باشه می خوام ارتفاع فرم از ارتفاع صفحه مانیتور جلوتر بره اما برنامه میاد فرم رو به اندازه صحفه نمایش مچ می کنه
باتشکر از دوستان

Private 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
Private Sub Form_Load()
Dim b1 As Boolean
b1=MoveWindow (Me.hwnd, 0, 0, 500000000, 200, 0)
End Sub



هرچی زیاد ترش کنیم باز هم همونه ارتفاع فرم از صفحه نمایش بالاتر نمیره