VISUAL BASIC　ツールバーの作成

今回は、”VISUAL BASIC　ツールバーの作成”です。

よろしくお願いします。m(__)m
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
◆-Title-◆

１．★VISUAL BASIC　ツールバーの作成★

２．Follow me

３．参考URL

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
１．★VISUAL BASIC　ツールバーの作成★

今回はツールバーの作成です。
ボタンを押すと保存ができるとか開くとか
画像を載せて視覚的にわかりやすいので非常に便利です

SAVEFILEダイアログがどこのサイトもコードで書いてるからおかしいなと思ったらドラッグしてきたやつは例外のエラーが出るからみんな使ってないようです

・・・ということで、動かんのは忘れてコードで書きました。

 

Public Class Form1

 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

‘ボタンがクリックしたらダイアログが表示されます

OpenFileDialog1.ShowDialog()

End Sub

Private Sub OpenFileDialog1_FileOk_1(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

‘okをクリックされたときに処理されます
Dim filepath As String

‘選択されたファイルパスを取得します
filepath = OpenFileDialog1.FileName

‘ファイルパスを表示します
TextBox2.Text = filepath
‘ファイルを読み込んでテキストボックスに表示します

Dim sr As StreamReader = New StreamReader(filepath)

TextBox1.Text = sr.ReadToEnd

sr.Close()
End Sub

Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click

‘ボタンがクリックしたらダイアログが表示されます

OpenFileDialog1.ShowDialog()

End Sub

Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
Using dialog As New SaveFileDialog()
‘ プロパティの設定
With dialog
‘ ダイアログのタイトル
.Title = “名前を付けて保存”

‘ 初期ディレクトリ
.InitialDirectory = “C:\temp”

‘ ファイルのフィルタ
.Filter = “テキストファイル|*.txt;*log|すべてのファイル|*.*”

‘ 初期表示するファイル名
.FileName = “test.txt”

End With

‘ ダイアログを表示し、戻り値が [OK] の場合は、選択したファイル名を表示する
If dialog.ShowDialog() = DialogResult.OK Then
Dim path As String = dialog.FileName

‘ StreamWriterクラスを使ってテキストファイルにデータを書き込む
Using sw As New System.IO.StreamWriter(path, False, System.Text.Encoding.GetEncoding(“UTF-8”))
sw.WriteLine(Me.TextBox1.Text)
End Using

TextBox2.Text = path

End If
End Using
End Sub
End Class

２．Follow me

ホームページ : https://cgishop.net

kindle出版 : https://kdp.amazon.co.jp/ja_JP/bookshelf?ref_=kdp_KDPS_TN_bs

メルカリ : https://www.mercari.com/jp/u/206198780/

ベクター : https://www.vector.co.jp/vpack/browse/person/an034075.html

ヤフオク　　　：https://auctions.yahoo.co.jp/seller/cgishop

３．ソフトウェア　ブログURL

トップページ

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
☆エンディング☆
————————————————————————
今回は、”VISUAL BASIC　ツールバーの作成”でした。
今後も随時改定していきます

( ・_・)_且~~ 　ご視聴ありがとうございました。
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
◆利用サイト◆

ささら立ち絵
緑QN

✉dqn160317@gmail.com
🐤https://twitter.com/dqnww
🏠https://dqnww.tumblr.com/
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

Last Updated on 2024年3月9日8:51 am by cgishop