常連

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

①今から新規案件(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フォーム)を行うのは邪道か？

タイトルの通り、ソースコードを入力後、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に見つかりませんでした。とでて実行できない。

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でラッピングをすることで期待通りの結果が得られました。
ありがとうございました。


■□■□■□■□■□■□■□■□■□■□■□■□■


以上


お手数おかけしますが、宜しくお願いいたします。

ComboBoxのデザインを変更したい

# 実現したいこと
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呼び出しについて

###前提・実現したいこと
.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 タブコントロール、タブの色について

###前提・実現したいこと
共有(ネットワークドライブ越し)利用しているテキストファイルがあり、処理するたびに「他のプロセスが使用中です。」となるのを防ぎたい。
対策としてローカルパスに処理するたびにコピーしているのだがエラーが出てしまい頓挫している。

###発生している問題・エラーメッセージ
～は他のプロセスが使用中です。

###該当のソースコード

```ここに言語を入力
Dim filePath = Path.Combine("\\192.168.1.1\test", "xxx.CSV")
If Not File.Exists(filePath) Then
   MessageBox.Show("ファイルが見つかりません。")
   Return Nothing
Else
   '↓ここでエラー発生。
   File.Copy(Path.Combine("\\192.168.1.1\test", "xxx.CSV"), Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "xxx.CSV"), True)
End If
```
###試したこと
いくつかエラー処理を実装しコピーできない旨をメッセージで伝える等を行っているが解決に至らず。
最終的には無理にでもコピーしたい。
ネットワークドライブ上のファイルの為、不特定多数のユーザーが閲覧する可能性があり、プロセスの特定が難しい。
その場でファイルを取り扱わず、ローカルコピーを行えばどうにかなるかと考えたが、コピーに失敗する為頓挫している。

###補足情報(言語/FW/ツール等のバージョンなど)
vb.net .net4.5 VB14

他のプロセスが利用中のファイルをコピーしたい。

### FTPサーバー（ラズパイ）からFTPクライアント（PC）にファイルをダウンロードしたい．

Visual Studio2019を使用しています．FluentFTPが推奨されているようなのでそちらを使用しております．エラーはなく，そのまま処理されますがダウンロードパス先にはダウンロードされたファイルはありません．なぜでしょうか？

ご不明な点がございましたらご質問ください．よろしくお願いします．



### デバッグ（長いので割愛しました）

```
11-10 09:42:34.662 I/mono-stdout( 8716): 接続しました
接続しました
Thread started: <Thread Pool> #7
11-10 09:42:34.916 I/mono-stdout( 8716): ダウンロードしました
ダウンロードしました
11-10 09:42:34.953 D/OpenGLRenderer( 8716): Skia GL Pipeline
11-10 09:42:35.036 D/        ( 8716): HostConnection::get() New Host Connection established 0xcc5fea00, tid 8758
11-10 09:42:35.048 I/ConfigStore( 8716): android::hardware::configstore::V1_0::ISurfaceFlingerConfigs::hasWideColorDisplay retrieved: 0
11-10 09:42:35.049 I/ConfigStore( 8716): android::hardware::configstore::V1_0::ISurfaceFlingerConfigs::hasHDRDisplay retrieved: 0
11-10 09:42:35.049 I/OpenGLRenderer( 8716): Initialized EGL, version 1.4
11-10 09:42:35.049 D/OpenGLRenderer( 8716): Swap behavior 1
11-10 09:42:35.050 W/OpenGLRenderer( 8716): Failed to choose config with EGL_SWAP_BEHAVIOR_PRESERVED, retrying without...
11-10 09:42:35.052 D/OpenGLRenderer( 8716): Swap behavior 0
11-10 09:42:35.126 D/EGL_emulation( 8716): eglCreateContext: 0xe6c855a0: maj 3 min 0 rcv 3
11-10 09:42:35.157 D/EGL_emulation( 8716): eglMakeCurrent: 0xe6c855a0: ver 3 0 (tinfo 0xe6c83e40)
11-10 09:42:35.291 D/EGL_emulation( 8716): eglMakeCurrent: 0xe6c855a0: ver 3 0 (tinfo 0xe6c83e40)
```

### 該当のソースコード

```Visual C#
using Android.App;
using Android.OS;
using Android.Support.V7.App;
using Android.Runtime;
using System.Net;
using System;
using FluentFTP;
using System.Security.Authentication;

namespace FTPClient
{
    [Activity(Label = "@string/app_name", Theme = "@style/AppTheme", MainLauncher = true)]
    public class MainActivity : AppCompatActivity
    {
        protected override void OnCreate(Bundle savedInstanceState)
        {
            base.OnCreate(savedInstanceState);
            Xamarin.Essentials.Platform.Init(this, savedInstanceState);
            // Set our view from the "main" layout resource
            SetContentView(Resource.Layout.activity_main);
            FtpClient client = new FtpClient();

            client.Host = "192.168.3.6";
            //client.Port = 21;
            // 資格情報の設定
            client.Credentials = new NetworkCredential("pi", "itolab");
            // 要求の完了後に接続を閉じる
            client.SocketKeepAlive = false;
            // プロトコルはTls
            client.SslProtocols = SslProtocols.Tls;
            // 接続タイムアウトを5秒に設定
            client.ConnectTimeout = 60000;
            // 証明書の内容を確認しない
            client.ValidateCertificate += new FtpSslValidation(OnValidateCertificate);

            try
            {
                // 接続
                client.Connect();
                Console.WriteLine("接続しました");
                // ファイルのダウンロード
                client.DownloadFile(@"C:\Users\2.jpg", "/Pictures/2.jpg");
                Console.WriteLine("ダウンロードしました");
            }
            catch (Exception ex)
            {
                Console.Write(ex.Message);
            }
            finally
            {
                // 切断
                client.Disconnect();
                // 解放
                client.Dispose();
            }

        }

        private void OnValidateCertificate(FtpClient control, FtpSslValidationEventArgs e)
        {
            // 証明書の内容を確認しない
            e.Accept = true;
        }

        public override void OnRequestPermissionsResult(int requestCode, string[] permissions, [GeneratedEnum] Android.Content.PM.Permission[] grantResults)
        {
            Xamarin.Essentials.Platform.OnRequestPermissionsResult(requestCode, permissions, grantResults);

            base.OnRequestPermissionsResult(requestCode, permissions, grantResults);
        }
    }
}
```

### 試したこと

・コマンドプロンプトや既存のFTPクライアントアプリからFTPサーバーへの接続確認済み
・コマンドプロンプトからFTPサーバーに接続した際の最初のディレクトリを確認，そしてパスの設定

### 補足情報（FW/ツールのバージョンなど）

Visual Studio2019
FTPサーバー（vsftpd）

[C#]FluentFTPクラスを使用したFTPクライアントでファイルダウンロードができない

### 実現したいこと

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 Basic .NET