上書きモードにするには？

解決

ひろつの 2001-11-07 18:56:27 No: 103750

テキストボックスにカーソルが指定された時上書きモードにする方法を教えてください。

悩めるプログラマー 2001-11-07 21:59:40 No: 103751

テキストボックスを青色表示（っていうのかな？）にするんですよね？
それならばテキストボックスのGotFocus時にでも

Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)

でどうでしょう？

ひろつの 2001-11-08 00:33:58 No: 103752

出来ました。
ありがとうございました

ひろつの 2001-11-08 00:34:01 No: 103753

出来ました。
ありがとうございました

鉛筆（HB） 2001-11-19 22:51:39 No: 103754

始めまして、鉛筆（HB）です。
最近、VBを使って、なにか作ろうと思いはじめました。
そこで、テキストエディタを作成しています。
そして、下記の壁にぶち当たりました。

印刷をコモンダイアログを使って、作成したのですが、
一応プリントできるのですが、へんな枠と、ダイアログが表示されません。
どうしたらいいか解りますか？
下記に、プリントの部分だけのソースを貼ります。

Private Sub FilePrint_Click()
Dialog1.ShowPrinter
'// フォームをコマンドボタンを除いて印刷します。
'// ラベルの BackStyle プロパティは 0-透明に設定します。

    Dim ctrLoop As Control

    ' コマンドボタンは非表示にする
    For Each ctrLoop In Text.Container
        If TypeOf ctrLoop Is CommandButton Then
            ctrLoop.Visible = False
        End If
    Next

    Form1.BackColor = vbWhite '背景色を白にする
    Form1.PrintForm 'フォームのハードコピーを出力
    Form1.BackColor = vb3DFace '背景色を標準に戻す

    ' コマンドボタンの非表示状態を戻す
    For Each ctrLoop In Form1.Controls
        If TypeOf ctrLoop Is CommandButton Then
            ctrLoop.Visible = True
        End If
    Next

End Sub

わかる方教えて下さい。お願いします。

ひろつの 2001-11-22 23:25:41 No: 103755

間違いですよね？ＨＢさん？ハードボイルド？