PDA

View Full Version : سوال: بدست آوردن اطلاعات صفحه نمایش?



MDSTmdst
چهارشنبه 17 آذر 1389, 00:29 صبح
یه چند تا سوال کوچو لو داشتم

1. چه جوری میشه با کلیک روی هر جای فرم؛ فرم رو جابجا کرد؟؟؟

2.برا ی بدست آوردن اطلاعات صفحه نمایش ، مانیتور، رزولوشن باید چی کار کنم؟؟

3.برا ی مخفی کردن فرم (hide) د ر زمان لود برنامه چه کدی لازمه؟
من با کد زیر امتحان کردم نشد!!!!!! :ناراحت::افسرده::عصبانی++:

me.hide

mansourii
چهارشنبه 17 آذر 1389, 10:25 صبح
1- بايد برنامه اش رو برات بنويسم. تا فرداشب برات ميذارم

2-

My.Computer.Screen.Bounds.Width & "*" & My.Computer.Screen.Bounds.Height

3- براي مخفي كردن Me.hide
و براي بازيابي Me.show يا Me.Active() استفاده كن

pouyansaraf
چهارشنبه 17 آذر 1389, 10:59 صبح
با سلام
تا اونجایی که میدونم فرم نمیتواند خودش را hide کند

Saman_12
چهارشنبه 17 آذر 1389, 12:55 عصر
Public Class FrmMain

Private MousePoint As New Point
Private IsMouseDown As New Boolean

Private Sub FrmMain_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown

IsMouseDown = True
MousePoint = e.Location
End Sub

Private Sub FrmMain_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove

If IsMouseDown Then

Me.Location = New Point(MousePosition.X - MousePoint.X, MousePosition.Y - MousePoint.Y)
End If
End Sub

Private Sub FrmMain_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp

IsMouseDown = False
End Sub

Private Sub FrmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
End Sub
End Class




Dim DesPoint As Point = SystemInformation.VirtualScreen.Location


دستور Hide موقع لود شودن فرم کار نمیکنه!


Me.Opacity = 0


تمامی این موضوعات قبلا بحث شده بهتر بود اول جستوجو می کردید!