- PR -

マスクエディットコントロールの固有のプロパティを利用したいのですか...

1
投稿者投稿内容
ゆうパパ
会議室デビュー日: 2005/04/21
投稿数: 11
投稿日時: 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文か何かを入れなければならないのでしょうか?ご存知の方が
おられましたら、是非ともお教えください。よろしくお願い致します。
甕星
ぬし
会議室デビュー日: 2003/03/07
投稿数: 1185
お住まい・勤務地: 湖の見える丘の上
投稿日時: 2005-06-24 06:44
AxMaskEdBoxって標準のコントロールではないですよね。
あなた自身が、どこかでAxMaskEdBoxを定義しているはずなんですが、
どこで定義しているんですか?
_________________
甕星 <mikahosi@abox9.so-net.ne.jp>
http://blogs.msmvp.jp/mikahosi/
1

スキルアップ/キャリアアップ(JOB@IT)