View Full Version : سوال: بدست آوردن اطلاعات صفحه نمایش?
MDSTmdst
چهارشنبه 17 آذر 1389, 01:29 صبح
یه چند تا سوال کوچو لو داشتم
1. چه جوری میشه با کلیک روی هر جای فرم؛ فرم رو جابجا کرد؟؟؟
2.برا ی بدست آوردن اطلاعات صفحه نمایش ، مانیتور، رزولوشن باید چی کار کنم؟؟
3.برا ی مخفی کردن فرم (hide) د ر زمان لود برنامه چه کدی لازمه؟
من با کد زیر امتحان کردم نشد!!!!!! :ناراحت::افسرده::عصبانی++:
me.hide
mansourii
چهارشنبه 17 آذر 1389, 11:25 صبح
1- بايد برنامه اش رو برات بنويسم. تا فرداشب برات ميذارم
2-
My.Computer.Screen.Bounds.Width & "*" & My.Computer.Screen.Bounds.Height
3- براي مخفي كردن Me.hide
و براي بازيابي Me.show يا Me.Active() استفاده كن
pouyansaraf
چهارشنبه 17 آذر 1389, 11:59 صبح
با سلام
تا اونجایی که میدونم فرم نمیتواند خودش را hide کند
Saman_12
چهارشنبه 17 آذر 1389, 13: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
تمامی این موضوعات قبلا بحث شده بهتر بود اول جستوجو می کردید!
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.