No.1
- 回答日時:
参考URL
http://www1.mahoroba.ne.jp/~mitt/dotnet/WindowsF …
http://ja.gotdotnet.com/quickstart/winforms/doc/ …
など、検索エンジンで探せばわかると思います。
以上 参考まで
この回答への補足
こんばんは。
ご回答ありがとうございます。
今回探している方法は出ていないようなのですが、
とても参考になるページを教えて頂いてありがとうございます。
今後、虎の巻の一つとして活用させて頂こうと思います。
ありがとうございました。
No.2ベストアンサー
- 回答日時:
お世話になります。
> コンボボックスやリストボックスのアイテムに
> 別のデータ(テキスト文字列など)を一緒に
> 記憶させておくような方法
記憶させておくような方法って...?
もうちょっと具体的に聞かないと解らないですけど、
VS2005 なら
My.Settings とか
http://www.microsoft.com/japan/msdn/vs05/vbasic/ …
PropertyBinding の事かな?
http://www.atmarkit.co.jp/fdotnet/dotnettips/438 …
この回答への補足
こんばんは。
ご回答ありがとうございます。
わかりにくい書き方をして申し訳ございませんでした。
当方が思っているのは、例えば
リストボックスにファイルをドラッグ&ドロップして
ファイル名を追加して、ファイルに何らかの処理を
したいプログラムを作るとすると、
リストボックスにファイル名がフルパスで表示されると
見た感じややこしくなるので、GetFileNameで
ファイル名のみを表示するようにして、
対応する番号にフルパスの文字列を入れておきたいと思っています。
配列を用意して、同じようなことをやったことがあるのですが、
以前どこかで配列を用いないで、コントロールの機能のような方法でやっているのを見たことがあって、
次に使う時はこの方法でやろうと思っていたのですが、
URLを覚えておくのを忘れてしまい、どのような方法だったのかわからなくなってしまいました。
もし何かありましたら、またご回答頂けると幸いです。
とても詳しくご説明をして頂きありがとうございます。
パソコンが不調に陥りパスワードを覚えていなかったので、
GOOIDにログインできなくなってしまい
お礼の書き込みが出来ずもうしわけございませんでした。
プログラム作成もその時から停止してしまっていましたので、
教えて頂いた方法を研究しつつ、もう一度作り直してみたいと思います。
ご丁寧に詳しく教えて頂き本当にありがとうございました。
No.3
- 回答日時:
お世話になります。
では、こういう事でしょうか。
Public Class Form3
Private Sub Form3_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.ListBox1.SelectionMode = SelectionMode.One
Me.ListBox1.AllowDrop = True
End Sub
Private Sub ListBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy
End If
End Sub
Private Sub ListBox1_DragOver(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragOver
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy
End If
End Sub
Private Sub ListBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
Dim s() As String = DirectCast(e.Data.GetData(DataFormats.FileDrop), String())
For i As Integer = 0 To s.Length - 1
Me.ListBox1.Items.Add(New TestFile(s(i)))
Next
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For Each testFileObject As TestFile In Me.ListBox1.Items
Console.WriteLine("ファイル名:" & testFileObject.ShortFileName)
Console.WriteLine("パス:" & testFileObject.FullFileName)
Next
End Sub
End Class
Public Class TestFile
Private m_shortFileName As String
Private m_fullFileName As String
Public Sub New(ByVal fullPath As String)
Me.m_fullFileName = fullPath
Me.m_shortFileName = System.IO.Path.GetFileName(fullPath)
End Sub
Public ReadOnly Property ShortFileName() As String
Get
Return Me.m_shortFileName
End Get
End Property
Public ReadOnly Property FullFileName() As String
Get
Return Me.m_fullFileName
End Get
End Property
Public Overrides Function ToString() As String
Return Me.ShortFileName
End Function
End Class
No.4
- 回答日時:
お世話になります。
それとも、こういう事?
Public Class Form4
Private m_datasource As DataTable
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.ListBox1.SelectionMode = SelectionMode.One
Me.ListBox1.AllowDrop = True
Me.m_datasource = New DataTable
Me.m_datasource.Columns.Add("shortFileName", GetType(String))
Me.m_datasource.Columns.Add("fullFileName", GetType(String))
Me.ListBox1.DataSource = Me.m_datasource
Me.ListBox1.DisplayMember = "shortFileName"
Me.ListBox1.ValueMember = "fullFileName"
End Sub
Private Sub ListBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy
End If
End Sub
Private Sub ListBox1_DragOver(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragOver
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy
End If
End Sub
Private Sub ListBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
Dim s() As String = DirectCast(e.Data.GetData(DataFormats.FileDrop), String())
For i As Integer = 0 To s.Length - 1
Me.m_datasource.Rows.Add(New String() {System.IO.Path.GetFileName(s(i)), s(i)})
Next
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For Each row As DataRow In Me.m_datasource.Rows
Console.WriteLine("ファイル名:" & Convert.ToString(row("shortFileName")))
Console.WriteLine("パス:" & Convert.ToString(row("fullFileName")))
Next
End Sub
End Class
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- HTML・CSS VB.net コンボボックス 2 2022/06/30 20:37
- Visual Basic(VBA) VBAのSelectedIndexでコンパイルエラーが… 1 2023/04/16 14:07
- Excel(エクセル) 【Excel】指定した文字列に該当する行を重複しないようにリスト 3 2022/03/30 12:27
- Visual Basic(VBA) VB.net 1 2022/08/18 19:21
- その他(職業・資格) データ分析実務スキル検定(Citizen級)学習方法 1 2022/12/18 18:44
- Visual Basic(VBA) VB.net 1 2022/08/17 19:28
- Excel(エクセル) Excelのリストにある文字を含むセルを、複数の色で色付けしたいです 2 2022/08/11 17:39
- Excel(エクセル) Excelの数式についての質問 1 2022/10/31 15:50
- Visual Basic(VBA) vba 等間隔の列に対しての計算 6 2022/05/17 20:15
- Visual Basic(VBA) エクセルについて教えてください。 3 2023/06/28 09:11
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【ExcelVBA】値を変更しながら...
-
VBAで大量のファイルをシート名...
-
VBA 何かしら文字が入っていたら
-
【マクロ】1つのマクロの中に...
-
VBA 別ブックからコピペしたい...
-
VBAを使用した時間管理
-
Excelのマクロでワードのテキス...
-
【PowerPoint VBA】緑色の文字...
-
ExcelのVBAコードについて教え...
-
2つのマクロでチェックボックス...
-
VB.net(VB)で、フォームにExcel...
-
FileCopy時のエラー
-
VBA ユーザーフォーム ボタンク...
-
エクセルについて
-
Vba SelStart、SelLen教えてく...
-
VBAで各列の"+"と"o"の合計数を...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
Excel VBA 定義されたプロージ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Google マップに同心円と文字を...
-
OS依存文字を一括で変換したい...
-
DelphiのRichEditで任意の行の...
-
ExcelのセルでA1セルはUTF-8でA...
-
OLE でACCESSデータを取得する...
-
C言語においてコマンドプロン...
-
flashかfireworksで、丸に沿っ...
-
Mathematicaでの複素数の絶対値...
-
excel 英数字の数字が一桁の時...
-
DirectX9で文字を一文字ずつ表示
-
Excelが関数になってしまう
-
縁取った文字とフェードアウト...
-
他国語
-
パソコンのA4に大きく一文字入...
-
VBでバイナリエディタを作成に...
-
word
-
名古屋の栄と錦は治安悪い?
-
数式中の文字をCambria Math以...
-
PDF→CSVへ変換
-
illustratorとExcelは連携出来...
おすすめ情報