PDA

View Full Version : محل شروع فرم های فرزند



eyelash
پنج شنبه 28 دی 1385, 01:25 صبح
بچه ها من توی فرم اصلی برنامم چند تا Lable دارم و یک Toolbar که وقتی قراره فرم جدیدی باز بشه یه مقدار اون زیر ای برچسب هام و Toolbar قرار می گیره. از اونجا که نمی خوام فرم ها از مرکز فرم والدشون باز بشن چه جوری می تونم محل شروع فرم هام را طوری تغیر بدم که پایین تر از ToolBar و کنار برچسب هام قرار بگیرن.
در ضمن من Vb.Net 2003کار می کنم.

Ner'zhul Arthas
پنج شنبه 28 دی 1385, 01:57 صبح
اینجوری میخوای؟




Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
Dim frm2 As New Form2
frm2.Show()
frm2.Location = New Point(Me.Left, Me.Top + ToolBar1.Height + 20)
End Sub

eyelash
پنج شنبه 28 دی 1385, 23:39 عصر
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
Dim frm2 As New Form2
frm2.Show()
frm2.Location = New Point(Me.Left, Me.Top + ToolBar1.Height + 20)
End Sub
ممنون از راهنمایی شما
البته برای دوستانی که ممکنه بخوان از کد بالا استفاده کنن می گم که اگه در فرم شما ممکنه چند فرم باز بشن بهتره که به Location هر کدوم یه مقداری اضافه بشه تا همه فرم ها از یک جا باز نشن.
مثلاً

Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
Dim frm2 As New Form2
frm2.Show()
frm2.Location = New Point(Me.Left + 5 , Me.Top + ToolBar1.Height + 20 + 5 )
End Sub

البته این مقدار 5 برای فرم های مختلف باید متفاوت باشه
موفق باشین