QA@IT
«質問へ戻る

解決

6
本文
 【2018/04/12 追記】
 外部から最大化で起動するスクリプトは、私の方で作成しているのではなく別業者が作成しています。
 最大化で起動しないよう言ってはいますが返事が良くなく、こちらで対応できればと質問しました。
+【2018/04/12 解決】
+MaximumSizeを設定するでもなく、LoadイベントにFormWindowState.Normalを書くだけで解決しました。
+```vb
+'テスト用に作成したVB.netのアプリ
+'デザイナ上で MaximizeBox を False
+Public Class Form1
+    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.WindowState = FormWindowState.Normal
+    End Sub
+End Class
+```

VB.netで外部から最大化で起動されても通常のサイズに戻したい

Visual Studio 2013のVB.netでアプリを作成しています。
最大化を出来ないようにしたいのですが、外部(VBScript)から最大化でEXEを実行されてしまうと最大化表示されてしまいます。
これを無効にすることは出来ないでしょうか?

'テスト用に作成したVB.netのアプリ
'デザイナ上で MaximizeBox を False
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MaximumSize = Me.Size
    End Sub

    Private Sub Form1_SizeChanged(sender As Object, e As EventArgs) Handles Me.SizeChanged
        If Me.WindowState = FormWindowState.Maximized Then
            Me.WindowState = FormWindowState.Normal
        End If
    End Sub
End Class
'テスト用に作成したアプリを起動するVBScript
Const vbMaximizedFocus = 3

Dim objWShell
Set objWShell = CreateObject("WScript.Shell")
objWShell.Run "WindowsApplication1.exe", vbMaximizedFocus, False
Set objWShell = Nothing

【2018/04/12 追記】
外部から最大化で起動するスクリプトは、私の方で作成しているのではなく別業者が作成しています。
最大化で起動しないよう言ってはいますが返事が良くなく、こちらで対応できればと質問しました。
【2018/04/12 解決】
MaximumSizeを設定するでもなく、LoadイベントにFormWindowState.Normalを書くだけで解決しました。

'テスト用に作成したVB.netのアプリ
'デザイナ上で MaximizeBox を False
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.WindowState = FormWindowState.Normal
    End Sub
End Class
Visual Studio 2013のVB.netでアプリを作成しています。
最大化を出来ないようにしたいのですが、外部(VBScript)から最大化でEXEを実行されてしまうと最大化表示されてしまいます。
これを無効にすることは出来ないでしょうか?
```vb
'テスト用に作成したVB.netのアプリ
'デザイナ上で MaximizeBox を False
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MaximumSize = Me.Size
    End Sub

    Private Sub Form1_SizeChanged(sender As Object, e As EventArgs) Handles Me.SizeChanged
        If Me.WindowState = FormWindowState.Maximized Then
            Me.WindowState = FormWindowState.Normal
        End If
    End Sub
End Class
```
```vb
'テスト用に作成したアプリを起動するVBScript
Const vbMaximizedFocus = 3

Dim objWShell
Set objWShell = CreateObject("WScript.Shell")
objWShell.Run "WindowsApplication1.exe", vbMaximizedFocus, False
Set objWShell = Nothing
```
【2018/04/12 追記】
外部から最大化で起動するスクリプトは、私の方で作成しているのではなく別業者が作成しています。
最大化で起動しないよう言ってはいますが返事が良くなく、こちらで対応できればと質問しました。
【2018/04/12 解決】
MaximumSizeを設定するでもなく、LoadイベントにFormWindowState.Normalを書くだけで解決しました。
```vb
'テスト用に作成したVB.netのアプリ
'デザイナ上で MaximizeBox を False
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.WindowState = FormWindowState.Normal
    End Sub
End Class
```

最大化で起動される理由を追記

6
本文
 objWShell.Run "WindowsApplication1.exe", vbMaximizedFocus, False
 Set objWShell = Nothing
 ```
+【2018/04/12 追記】
+外部から最大化で起動するスクリプトは、私の方で作成しているのではなく別業者が作成しています。
+最大化で起動しないよう言ってはいますが返事が良くなく、こちらで対応できればと質問しました。

VB.netで外部から最大化で起動されても通常のサイズに戻したい

Visual Studio 2013のVB.netでアプリを作成しています。
最大化を出来ないようにしたいのですが、外部(VBScript)から最大化でEXEを実行されてしまうと最大化表示されてしまいます。
これを無効にすることは出来ないでしょうか?

'テスト用に作成したVB.netのアプリ
'デザイナ上で MaximizeBox を False
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MaximumSize = Me.Size
    End Sub

    Private Sub Form1_SizeChanged(sender As Object, e As EventArgs) Handles Me.SizeChanged
        If Me.WindowState = FormWindowState.Maximized Then
            Me.WindowState = FormWindowState.Normal
        End If
    End Sub
End Class
'テスト用に作成したアプリを起動するVBScript
Const vbMaximizedFocus = 3

Dim objWShell
Set objWShell = CreateObject("WScript.Shell")
objWShell.Run "WindowsApplication1.exe", vbMaximizedFocus, False
Set objWShell = Nothing

【2018/04/12 追記】
外部から最大化で起動するスクリプトは、私の方で作成しているのではなく別業者が作成しています。
最大化で起動しないよう言ってはいますが返事が良くなく、こちらで対応できればと質問しました。

Visual Studio 2013のVB.netでアプリを作成しています。
最大化を出来ないようにしたいのですが、外部(VBScript)から最大化でEXEを実行されてしまうと最大化表示されてしまいます。
これを無効にすることは出来ないでしょうか?
```vb
'テスト用に作成したVB.netのアプリ
'デザイナ上で MaximizeBox を False
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MaximumSize = Me.Size
    End Sub

    Private Sub Form1_SizeChanged(sender As Object, e As EventArgs) Handles Me.SizeChanged
        If Me.WindowState = FormWindowState.Maximized Then
            Me.WindowState = FormWindowState.Normal
        End If
    End Sub
End Class
```
```vb
'テスト用に作成したアプリを起動するVBScript
Const vbMaximizedFocus = 3

Dim objWShell
Set objWShell = CreateObject("WScript.Shell")
objWShell.Run "WindowsApplication1.exe", vbMaximizedFocus, False
Set objWShell = Nothing
```
【2018/04/12 追記】
外部から最大化で起動するスクリプトは、私の方で作成しているのではなく別業者が作成しています。
最大化で起動しないよう言ってはいますが返事が良くなく、こちらで対応できればと質問しました。

質問を投稿

VB.netで外部から最大化で起動されても通常のサイズに戻したい

Visual Studio 2013のVB.netでアプリを作成しています。
最大化を出来ないようにしたいのですが、外部(VBScript)から最大化でEXEを実行されてしまうと最大化表示されてしまいます。
これを無効にすることは出来ないでしょうか?

'テスト用に作成したVB.netのアプリ
'デザイナ上で MaximizeBox を False
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MaximumSize = Me.Size
    End Sub

    Private Sub Form1_SizeChanged(sender As Object, e As EventArgs) Handles Me.SizeChanged
        If Me.WindowState = FormWindowState.Maximized Then
            Me.WindowState = FormWindowState.Normal
        End If
    End Sub
End Class
'テスト用に作成したアプリを起動するVBScript
Const vbMaximizedFocus = 3

Dim objWShell
Set objWShell = CreateObject("WScript.Shell")
objWShell.Run "WindowsApplication1.exe", vbMaximizedFocus, False
Set objWShell = Nothing
Visual Studio 2013のVB.netでアプリを作成しています。
最大化を出来ないようにしたいのですが、外部(VBScript)から最大化でEXEを実行されてしまうと最大化表示されてしまいます。
これを無効にすることは出来ないでしょうか?
```vb
'テスト用に作成したVB.netのアプリ
'デザイナ上で MaximizeBox を False
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MaximumSize = Me.Size
    End Sub

    Private Sub Form1_SizeChanged(sender As Object, e As EventArgs) Handles Me.SizeChanged
        If Me.WindowState = FormWindowState.Maximized Then
            Me.WindowState = FormWindowState.Normal
        End If
    End Sub
End Class
```
```vb
'テスト用に作成したアプリを起動するVBScript
Const vbMaximizedFocus = 3

Dim objWShell
Set objWShell = CreateObject("WScript.Shell")
objWShell.Run "WindowsApplication1.exe", vbMaximizedFocus, False
Set objWShell = Nothing
```