VB.NET 初心者です。
コンボボックスに隠し情報としてTagにidを設定しておき
後でボタンが押下された時にそのTagからidを取得し、次の
処理を行う様にしたいと考えております。
簡単な構成は以下のようになってます。
'構造体A
Public Structure A
Dim id As String
Dim name As String
End Structure
Dim Tag(1) As A
Dim Item(1) As String
Tag(0) = 1
Tag(2) = 2
Item(0) = "データ1"
Item(1) = "データ2"
' コンボボックスに値の設定
cboData.Items.AddRange(KeyItems)
cboData.Tag = TagItems
ボタンが押下された時に選択されている項目のidの取得方法を
教えて頂きたいと思います。よろしくお願い致します。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
書かれていた、既存のソースから、したいことを十分に理解できませんでした。
特に突然出てきた「KeyItems」と「TagItems」は全く理解できません。
それ以外の変数も、変数名の規約違反っぽいです。
そこで簡単なサンプルを張っておきます。
したい事と、違う部分があれば言って下さい。
#Regionの自動生成部は無視してください。
Public Class Form1
Inherits System.Windows.Forms.Form
Const DEF_ARRAY_MAX As Integer = 10
Public Structure A
Dim id() As String
Dim name() As String
End Structure
Dim myItme As A
#Region " Windows フォーム デザイナで生成されたコード "
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
などなど。。。
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Integer
ReDim myItme.id(DEF_ARRAY_MAX)
ReDim myItme.name(DEF_ARRAY_MAX)
For i = 0 To DEF_ARRAY_MAX
myItme.id(i) = ((i + 1) * 100).ToString
myItme.name(i) = String.Concat("データ", StrConv((i + 1).ToString, VbStrConv.Wide))
Next i
ComboBox1.Items.AddRange(myItme.name)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If ComboBox1.SelectedItem Is Nothing Then
Me.Text = "未選択"
Else
Me.Text = String.Concat( _
"タグ番号=", myItme.id(ComboBox1.SelectedIndex) _
)
End If
End Sub
End Class
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
VB.NETで DataRow()を利用して、値からコードを取得したい。
Visual Basic(VBA)
-
VB.net Double と Decimal の違い?
Visual Basic(VBA)
-
VB.NETで他のプロジェクトで作成したフォームを使う方法
Visual Basic(VBA)
-
-
4
チェックボックスを操作できないようにしたいです VB.NET
Visual Basic(VBA)
-
5
Designer.vbは直接コードをいじってはだめ?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Application.ScreenUpdating = ...
-
VBAでPDFのコピーとリネームを...
-
VBA他のブックから値のみ貼付す...
-
実行時エラー 3020の対策
-
構造体の各データの表示につい...
-
C++ コマンドプロンプトでの入...
-
セグメンテーション違反
-
[python] 文字列を変数名として...
-
シェイクスピア 英文 タトゥー
-
ACCESS テキストボックスを隙...
-
コンボボックスのtag情報の取得...
-
EXCELのマクロで外部データの取...
-
JSONで文字列が長い時
-
日齢計算プログラム
-
メモリをアドレスを直接指定し...
-
文字の横にプルダウンを表示さ...
-
セレクトメニューで2つの項目...
-
<SELECT>タグの折り返し
-
プルダウンメニューで中央表示
-
複数列を持ったリストボックス...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Application.ScreenUpdating = ...
-
実行時エラー 3020の対策
-
【メモリ不足で落ちる(python)】
-
パイソンのクラスのブログラム
-
パイソンのクラスについて
-
vscode 文字化け
-
パイソンプログラミング
-
VBAでPDFのコピーとリネームを...
-
FindFirst を複数条件で検索
-
ACCESS テキストボックスを隙...
-
[python] 文字列を変数名として...
-
構造体の各データの表示につい...
-
vbaでxmlからNodeListでデータ...
-
UWSC:ポップアップウインドウ...
-
コンボボックスのtag情報の取得...
-
phpでボタンを押したときに変数...
-
VBAで特殊文字を出力したい
-
VBA他のブックから値のみ貼付す...
-
C++ コマンドプロンプトでの入...
-
VB6のLSETをVB2005で実現するに...
おすすめ情報