- - PR -
マスクエディットコントロールの固有のプロパティを利用したいのですか...
1
投稿者 | 投稿内容 |
---|---|
|
投稿日時: 2005-06-23 18:10
いつもお世話になっております。
現在、VB.NETでWindowsアプリを作成しています。 http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=4452&forum=7 上記「コントロールのクリア」のスレッドを参考にして、画面の全データ項目を クリアするサブルーチンを作成しているのですが、マスクエディットコントロール がクリアできません。というか、下記のコーディングで 「型'AxMaskEdBox'が定義されていません」というエラーが出てコンパイルを 通りません。 【呼び出し元】 〜(略)〜 Map_Item_Clear(Me) 〜(略)〜 【サブルーチン】 '*********************************************************************** '* 画面の全項目をクリアする処理 '* ◎機能:対象フォームのコントロールの内容をクリアする '* ★引数 :対象フォーム '*********************************************************************** Public Sub Map_Item_Clear(ByVal frm As Control) Dim objControl As Control For Each objControl In frm.Controls Select Case objControl.GetType.Name Case "TextBox" Dim objText As TextBox = CType(objControl, TextBox) objText.Text = "" Case "ComboBox" Dim objCombo As ComboBox = CType(objControl, ComboBox) objCombo.SelectedIndex = 0 objCombo.SelectedIndex = -1 Case "DateTimePicker" Dim objDate As DateTimePicker = CType(objControl, DateTimePicker) objDate.Value = Now objDate.Checked = True objDate.Checked = False Case "Label" Dim objLabel As Label = CType(objControl, Label) If objLabel.Tag = "Nayose" Then objLabel.Text = "" End If Case "AxMaskEdBox" Dim objMask As AxMaskEdBox = CType(objControl, AxMaskEdBox) objMask.SelStart = "" objMask.SelLength = "" objMask.Seltext = "" Case "GroupBox", "Panel" Call Map_Item_Clear(objControl) End Select Next End Sub Imports文か何かを入れなければならないのでしょうか?ご存知の方が おられましたら、是非ともお教えください。よろしくお願い致します。 |
|
投稿日時: 2005-06-24 06:44
AxMaskEdBoxって標準のコントロールではないですよね。
あなた自身が、どこかでAxMaskEdBoxを定義しているはずなんですが、 どこで定義しているんですか? _________________ 甕星 <mikahosi@abox9.so-net.ne.jp> http://blogs.msmvp.jp/mikahosi/ |
1