VB.NET質問ｽﾚ (Part20)

VB.NET質問ｽﾚ (Part20) at TECH

25:デフォルトの名無しさん
07/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

次ページ

続きを表示

1を表示