VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 2005/09/15(Thu) 20:38
投稿者花ちゃん
Eメール
URL
タイトルRe: VBAで「型が一致しません」

> Private Sub DateCheck(TBOX As TextBox)
>  If Not IsDate(TBOX.Text) Then MsgBox ("正しい日付を入力してください")
>  'TBOX.Select
> End Sub

下記のようにObject型に変更して見てください。

Private Sub DateCheck(TBOX As Object)
If Not IsDate(TBOX.Text) Then MsgBox ("正しい日付を入力してください")
'TBOX.Select
End Sub

>
> もひとつ。不正日付のテキストボックスの文字を反転させたいのですが、SelStart,SelLengthが
> 無いので、どうしたらよいでしょうか?

ありますよ。自動メンバ表示で出てきますよ。
    TextBox2.SelStart
    TextBox2.SelLength
 


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -