常連

# 実現したいこと
Visual Basicで書かれたソフトにPythonで作成した関数の処理の結果を渡したいです。
まずは以下のサイトと同じ事をしたいです。
[参考サイト](http://e-s-s.jp/programlibrary/tag/vb-net%E3%81%8B%E3%82%89python%E5%91%BC%E3%81%B3%E5%87%BA%E3%81%97/)

# 発生している問題

CallPythonClass.vbの
```VisualBasic
'プロセスを実行する。
Dim ps = Process.Start(psi)
```
の箇所で、
System.ComponentModel.Win32Exception: 'アクセスが拒否されました。'
とうエラーが出ます。
![イメージ説明](008135c61239b1b001dfca158d29e9cd.png)
今までPythonにしか触れたことがなく何をすればよいか検討がつきません。
アドバイスお願いします。

#コード
callTest.py
```python
import sys

if len(sys.argv) == 4:

    #引数を受け取る
    param1 = int(sys.argv[1]) 
    param2 = int(sys.argv[2])
    param3 = int(sys.argv[3])

    #引数より計算処理を実施
    calcVal = param1 + param2 + param3

    #結果を返却
    print("calcResult {0}".format(calcVal))
```

CallPythonClass.vb
```VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Diagnostics

Public Class CallPythonClass

    Public Sub New()
    End Sub

    Public Sub callExecute()

        'Pythonインタプリタパス
        Dim pythonPath As String = "C:\ProgramData\Microsoft\VisualStudio\Packages\CPython3.Exe.x64,version=3.7.5,chip=x64"
        'Pythonスクリプトパス XXXXXはユーザー名
        Dim pythonFilePath As String = "C:\Users\XXXXX\Desktop\GW\callTest.py"

        '引数リストを作成する
        Dim paramList = New ArrayList()

        paramList.Add(pythonFilePath)
        paramList.Add("1000")
        paramList.Add("2000")
        paramList.Add("2000")

        'プロセス開始情報クラスを設定する。
        '引数配列よりコマンド配列（空白繋ぎ）に変換し設定する
        Dim psi = New ProcessStartInfo(pythonPath) With
        {
            .Arguments = String.Join(" ", paramList),
            .RedirectStandardOutput = True,
            .UseShellExecute = False
        }

        'プロセスを実行する。
        Dim ps = Process.Start(psi)

        '結果を取得する。
        Dim calcResult = ps.StandardOutput.ReadToEnd()

        'プロセス終了を待機する
        ps.WaitForExit()
        ps.Close()

        '結果出力
        Console.WriteLine(calcResult)
    End Sub

End Class
```

callFromTest.vb
```VisualBasic
Imports System

Public Class callFromTest

    Public Shared Sub Main(args As String())

        'Python呼び出しクラスをインスタンス化し処理する
        Dim callPython = New CallPythonClass

        'Pythonスクリプト外部呼出しを実行
        callPython.callExecute()
    End Sub
End Class
```

#補足情報
Windows10 64bit
Visual Studio 2019
Python3.7.5

VB.NETからPython呼び出しについて

## テーマ、知りたいこと

①今から新規案件(Windowsフォームアプリケーション)で.NET Framework4.8で開発するのは邪道でしょうか？

　新規案件の開発環境の選定が目前に迫っており、使い慣れた.NET Framework4.8(開発言語はVB.NET)で進めてしまっても良いのか悩んでおります。
　今まで.NET6を導入した経験はありませんが、新たに導入するなら新規案件での開発が適していると思っています。

.NET6に対しては
・言語使用に違いはあるのか(VB.NETの場合)
・アプリケーションの配布方法は従来(.NET Framework4.X系)通りClick Onceを使用できるか
・従来よりも余分な検証作業が発生するのではないか
との不安があります。(開発工数が少ないため)

　ぶっちゃけFrameworkの違いだけで、同じWindowsフォームである事には殆ど変わりない認識でよろしいでしょうか。
.NET Framework → .NET6 の移行や、初めて.NET6をやってみて困った点があれば知りたいです。

Microsoftがこれから先に手を加えることのない.NET Framework4.8で新規案件の開発を行おうとしていることに対して、ご意見を伺いたいです。

②これからWindows環境で稼働するデスクトップ版の業務アプリケーションを作成するならどの様なアプリケーションを選択するか？
　新規案件でWindows環境で稼働するアプリケーションを作成するなら、皆さんなら以下のどのアプリを選択しますでしょうか？
もちろんチームのメンバーの習熟度なども考慮する必要はあると思いますが、開発言語の選定も含めて知りたいです。

・Windowsフォームアプリケーション
・WPFアプリケーション
・その他

日々の業務に追われてなかなか新しいことの学習も出来ていないのですが、
今から学習するならWPFが良いのか、他のものが良いのかも知りたいです。
開発案件は販売管理や在庫管理、会計関連等の業務アプリケーションです。

## 背景、状況


①小規模案件でWindowsアプリケーションの開発が迫っており、開発環境の選定を行わなければならない

②開発期間が短い(開発規模も割と小さい)ので新しいことに踏み出すのに躊躇している

③私自身はVB.NETの開発経験が割と長い方ですが、他のメンバーが私よりも年長者でVB.NETの開発にそれほど精通していない
　(オフコンの経験が長く、その次にVBAやVB6.0の経験が長い。オブジェクト指向プログラミングにそれほど精通していない)

④自身の技術的な経歴を鑑みて、VB.NETのWindowsフォームアプリの開発ばかりやっていて良いのか、将来的な不安もある。

上記背景があり、以前からWindowsフォーム以外の開発もやってみたいという思いもあり、
現在のWindows系の業務アプリケーションの開発はどのようなアプリケーションが多いのかも
知りたいと思いました。




今から.NET Framework4.8で新規開発(Windowsフォーム)を行うのは邪道か？

デバッグ無しやEXEファイルだと実行できますが、デバッグモードだとなぜか例外が発生してしまいます。

環境はVB.netで、Form1にLabelを設置し、以下のコードを実行すると再現します。

```ここに言語を入力
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
test()
End Sub

Private Async Sub test()
Await Task.Run( '非同期で処理
Sub()
Dim L1 As Label = Label1
L1.Text = "OK"
End Sub
)
End Sub
End Class
```

デバッグモードで実行すると、L1.Text = "OK" 、の部分で「ユーザーが処理していない例外」が発生し止まってしまいます。![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-07-26/9e6883fe-f342-4b50-b6fc-0ac8ba721d8f.png)
ですが、デバッグ無しモードや実行ファイル単体だとすんなり実行され、ラベルに「OK」が出力されます。

※ コードは簡素に書きましたが、
実際には重い処理させるので、非同期で実行したいのです、、

よろしくお願いします。



デバッグモードで実行したときのみ例外が発生してしまいます。

### やりたいこと
イメージリストによってピクチャーボックス内に連続で表示される画像がストップしたとき、そのストップした画像を変数に格納しようとしています。

そこで、ｎ(0)にimage０を代入させるコードを書いたところエラーが出ました。

### 前提
システムとしては、
登録番号0～2の画像で止まる→それぞれの画像をお題として問題を解く(お題別に正解が分岐する）
というのを目指しています。

### 発生している問題・エラーメッセージ

'Image' の値を 'Boolean' に変換できません 　
→8行目　If image0 Then
→10行目　 ElseIf image1 Then

'Image' の値を 'Stringer' に変換できません
→9行目　 n(0) = image0
→11行目　 n(1) = image1
→12行目　 Else n(2) = image2

### 該当のソースコード
    
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Dim image0 As Image = ImageList1.Images(0)
        Dim image1 As Image = ImageList1.Images(1)
        Dim image2 As Image = ImageList1.Images(2)

        If image0 Then
            n(0) = image0
        ElseIf image1 Then
            n(1) = image1
        Else n(2) = image2
        End If

    End Sub

### 試したこと
登録した画像を示す方法を、 Dim image0 As Image = ImageList1.Images(0)と書きました。
これは自分の実力ではなく、自動修復の提案を用いたものです。しかしこれ以外に、どのように表示された画像を指し示せばよいのか分からなかったのでそのまま用い、 If image0 Then　以降のコードを書きました。
ド初心者で無知が光りますが、ご教授いただけるとありがたいです。
また、分かりづらいところがあれば教えていただけると見直すきっかけになるのでありがたいです。

### 全体のソースコード
 Dim ct As Integer
    Dim n(2) As String

    'お題をシャッフル
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Timer1.Enabled = True
    End Sub

    'ストップ
    Private Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.Click
        Timer1.Enabled = False
    End Sub

    'お題表示
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim gPBox As Graphics = PictureBox10.CreateGraphics()
        ct = ct + 1
        If ct = ImageList1.Images.Count Then ct = 0
        ImageList1.Draw(gPBox, 0, 0, ct)
    End Sub

    'お題による結果の条件分岐
    ct = ImageList1.Images.Count　←ctの箇所にエラーが出ているので見直しています
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


        If ct = 0 And (CheckBox2.Checked And CheckBox7.Checked And CheckBox4.Checked = True) Then　 'お題:
            MessageBox.Show("正解！" )


        ElseIf ct = 1 And (CheckBox1.Checked And CheckBox7.Checked And CheckBox3.Checked = True) Then 'お題:
            MessageBox.Show("正解！" )


        ElseIf ct = 2 And (CheckBox1.Checked And CheckBox7.Checked And CheckBox8.Checked = True) Then 'お題:
            MessageBox.Show("正解！" )

        Else MessageBox.Show("残念！")
        End If
    End Sub

### 補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。


変数に変数を代入させたいです

タイトルの通り、ソースコードを入力後、F5で実行しようとすると

Sub Main が VBTest04に見つかりませんでした。とでて実行できません。

まだ、Visual Basic は初心者なので、どこをいじればいいのか
わかりません。


試しに最初のフォームができてる状態だけで実行しようとしても
Sub Main が VBTest05に見つかりませんでした。とでて実行できません。

インストールに失敗したのでしょうか？
よろしくお願いします。

ビルドを開始しました...
1>------ ビルド開始: プロジェクト: VBTest06, 構成: Debug Any CPU ------
1>vbc : error BC30420: 'Sub Main' が、'VBTest06' に見つかりませんでした。
1>プロジェクト "VBTest06.vbproj" のビルドが終了しました -- 失敗。
========== ビルド: 0 正常終了、1 失敗、0 更新不要、0 スキップ ==========

[手順]
![1](208355227b7416c8a3690051b9549c39.png)
Visual Studio 2019 Community を起動
新しいプロジェクトの作成をクリック


![２](8c880eb57598ab0cb4d213caccd677a4.png)
Windowsフォームアプリを選択して、次をクリック


![３](db40d5c24e2aa3e94553e430b4c8b5a0.png)
プロジェックト名を「VBTest07」
場所を適切に変更
次をクリック

![４](d0014419f6436eb28debc080c752f80f.png)
そのまま　次をクリック


![５](a9f0c23c1a673edd0a286b66e714158a.png)
一番最初の画面
ここでF5を押す


![６](d22b862edb2b88f63eac574e70f16754.png)
F5を押した直後のエラー画面
実行できない








Visual Studio 2019 Community
.NET Core 3.1
Windows10 Pro

Sub Mainが VBTest04に見つかりませんでした。とでて実行できない。

### 実現したいこと

Visual Basic のEXE実行ファイルの出力先を変えたい。

### 詳細
プロジェクトのプロパティから
コンパイル → 全般 → ビルド出力パス、と辿って変更しようとしましたが、

「Visual Studio で予期しない問題が発生したため、
　プロジェクト システムの一部の機能に影響が生じる可能性があります。」

とエラー警告が出て、ログファイルには

「System.AggregateException: 1 つ以上のエラーが発生しました。 ---> System.ArgumentException: 名前 "Output path" は無効な文字 " " を含んでいます。」

を1行目とする、200行ほどのログが残っていました。

試しに、「C:\test」を出力先にしても、同様のエラーとログが残ってしまいます。

実行ファイルの出力先を変更する方法を教えて下さい。


### バージョン
Microsoft Visual Studio Community 2022 (64 ビット) - Current
Version 17.4.4



Visual Studioで実行ファイルの出力先を変えたい。

###前提・実現したいこと
.netにおいて、指定したタブの色を変えるコードを書きたいと思っていますが、どのように指定すればいいのかが分かりません。
他サイトを参考に、アクティブなタブの色を変えることには成功したのですが、最初から指定したタブの色を変える方法が分かりません。
タブページはNameもTextも１，２，３というタブで構成されています。


###該当のソースコード
```ここに言語を入力
Private Sub TabControl1_DrawItem(ByVal sender As Object, ByVal e As DrawItemEventArgs) Handles TabControl1.DrawItem
        '対象のTabControlを取得
        Dim tab As TabControl = CType(sender, TabControl)
        'タブページのテキストを取得
        Dim txt As String = tab.TabPages(e.Index).Text
        'タブのテキストと背景を描画するためのブラシを決定する
        Dim foreBrush, backBrush As Brush

        If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
            '選択されているタブのテキストを赤、背景を青とする
            foreBrush = Brushes.Black
            backBrush = Brushes.Orange
        Else
            '選択されていないタブのテキストは灰色、背景を白とする
            foreBrush = Brushes.Gray
            backBrush = Brushes.White
        End If

        'StringFormatを作成
        Dim sf As New StringFormat
        '中央に表示する
        sf.Alignment = StringAlignment.Center
        sf.LineAlignment = StringAlignment.Center

        '背景の描画
        e.Graphics.FillRectangle(backBrush, e.Bounds)
        'Textの描画
        e.Graphics.DrawString(txt, e.Font, foreBrush, RectangleF.op_Implicit(e.Bounds), sf)
    End Sub
```

###試したこと
```ここに言語を入力
e.state = 1
```
の様にすれば指定できるかもと思い試してみましたがだめでした。
ご教授よろしくお願い致します。

.net タブコントロール、タブの色について

windows8.1 ストアアプリを、visualstudio2015、OSはWindows10で開発しております。 

今回は、ComboBox に関して質問です。
ComboBoxコントロールの標準は、
![イメージ説明](e5c1f28251f1a1577488ff941a0a6fc3.png)
です。これを、

![イメージ説明](1481b7c5348669896a1400e842625f03.png)
や
![イメージ説明](c0f619b9302a8c5f180f16996942bcd8.png)

に、ComboBoxのデザインを編集したいです。

■変更したいデザイン
①角丸
②背景をグラデーション
③ドロップダウンボタン?テキスト？(右側の三角)
④テキスト部分(左側)と③の間に縦線(heightは自由に変更したい)

------------------------------
■ここまでできてます
●コード
```C#
<Grid Background ="{ThemeResource ApplicationPageBackgroundThemeBrush }">
        <Grid.RowDefinitions>
            <RowDefinition/>
            <RowDefinition/>
            <RowDefinition/>
            <RowDefinition/>
            <RowDefinition/>
        </Grid.RowDefinitions>

        
        <ComboBox  Width="580" Height ="60">
            <ComboBoxItem> リスト1</ComboBoxItem >
        </ComboBox>

        
        <ComboBox Grid.Row ="1" Width="580" Height="60">
            <ComboBoxItem BorderBrush ="Red" BorderThickness="3" Background="#FF0E39AC" Height ="20" Width="20" RenderTransformOrigin="0.5,0.5">
                <ComboBoxItem.RenderTransform>
                    <CompositeTransform TranslateX ="20" TranslateY="24"/>
                </ComboBoxItem.RenderTransform>
            </ComboBoxItem>
        </ComboBox>
      

        
        
        <Grid Width ="580" Height="60" Grid.Row="2">
            <Border CornerRadius ="5 5 5 5" BorderThickness="1,1,1,1" BorderBrush="Gray">
                <Border.Background>
                    <LinearGradientBrush EndPoint ="0.5,1" StartPoint="0.5,0">
                        <GradientStop Color ="White" Offset="0"/>
                        <GradientStop Color ="#FFF5F5F5" Offset="1"/>
                    </LinearGradientBrush>
                </Border.Background>
            </Border>
            <Border Background ="#FFCCCCCC" HorizontalAlignment="Right" Width="1" Height ="34" Margin="0 0 40 0"/>
            
            <TextBlock Grid.Column ="0" Margin="20 0 0 0" FontSize="22" VerticalAlignment ="Center" Text="リスト1" />
                      
        </Grid>
    

    </Grid >


```
●ビジュアル
![イメージ説明](d3a1d08b42483ae6956c8f355c58c3c8.png)



------------------------------
探してもあまりないのですが、みなさんデフォルトのままで使用されているからなのでしょうか。
PHPの公式リファレンスのように、オブジェクトで検索したら細かく使用例を交えながら説明しているサイトがあれば教えていただきたいです。
コンボボックス/リストボックスを極めてるサイトがあればいいのですが。。。

__似た状況っぽいけど、
http://tryerror.net/tryerror/wordpress/post-205
WindowsApplicationとwindowsストアアプリとWindowsデスクトップアプリが同じことを指しているのかわからないので、同じ言語を使用できるか不明。

この辺にも書いてそうだけど、まだ解読する力がない。
http://sourcechord.hatenablog.com/entry/2014/10/25/205036
http://d.hatena.ne.jp/kaorun/20120908/1347100061
https://msdn.microsoft.com/ja-jp/library/ms749018(v=vs.110).aspx
http://www.moonmile.net/blog/archives/4087__



前回の質問、【Sliderのデザイン】では、プロパティがSliderにはなかったので、SliderをBoderでラッピングをすることで期待通りの結果が得られました。
ありがとうございました。


■□■□■□■□■□■□■□■□■□■□■□■□■


以上


お手数おかけしますが、宜しくお願いいたします。

Visual Basic .NET