- 1 名前：デフォルトの名無しさん mailto:sage [2007/03/05(月) 11:19:36 ]
- 前スレVB.NET質問ｽﾚ (Part19)
pc11.2ch.net/test/read.cgi/tech/1168585041/
- 25 名前：デフォルトの名無しさん [2007/03/06(火) 22:22:48 ]
- >>24 かなり冗長でテストもしてないけどこんなのは？
Private Sub VewSubDisplay()
Dim monitor() As System.Windows.Forms.Screen
monitor = System.Windows.Forms.Screen.AllScreens()
Dim length As Integer = monitor.Length
If length > 0 Then
For i As Integer = 0 To monitor.Length
If monitor(i).Equals(System.Windows.Forms.Screen.PrimaryScreen) = False Then
Dim rect As Rectangle = monitor(i).WorkingArea
Me.Bounds = rect
End If
Next
End If
End Sub
- 26 名前：25 [2007/03/06(火) 22:24:23 ]
- とりあえずコメントぐらいつけろよな俺・・・
|
 |
