VB初心者友の会 - 超初心者専用Q&A掲示板過去ログ

> 入力をしTABで次へ移動し、また入力した場所に移動すると
> 入力をしていないのに最初に入力した文字がログとして出てしまいます。
> このような場合はどうしたらよろしいのでしょうか？？
> 
> 1回目…最初の文字
> 入力した場所にもどったら・・・最初の文字→最初の文字
> 

GotFocusを使ってText1.Text=""とか
クリアにする処理を入れてあげませう^^

> > 入力をしTABで次へ移動し、また入力した場所に移動すると
> > 入力をしていないのに最初に入力した文字がログとして出てしまいます。
> > このような場合はどうしたらよろしいのでしょうか？？
> > 
> > 1回目…最初の文字
> > 入力した場所にもどったら・・・最初の文字→最初の文字
> > 
> 
> GotFocusを使ってText1.Text=""とか
> クリアにする処理を入れてあげませう^^

一度試して見ましたがテキストボックスまで空になってしまいます。
本当に初心者でもうしわけありません

> 一度試して見ましたがテキストボックスまで空になってしまいます。
> 本当に初心者でもうしわけありません

ん？？
テキストボックスにフォーカスが移った(戻った)ときに
下にドバッと出てくるリストをなくしたいと言うことでしょうか？？

> > 一度試して見ましたがテキストボックスまで空になってしまいます。
> > 本当に初心者でもうしわけありません
> 
> ん？？
> テキストボックスにフォーカスが移った(戻った)ときに
> 下にドバッと出てくるリストをなくしたいと言うことでしょうか？？

なんとか解決することができました。
ありがとうございました。
もう1つ質問があります。
imStrMon.Textこのテキストをダブルコーテーションで囲いたいのですが
どのようにしたらよろしいでしょうか？

> imStrMon.Textこのテキストをダブルコーテーションで囲いたいのですが
> どのようにしたらよろしいでしょうか？

Dim strInput as String
    strInput = imStrMon.Text
    strInput = """" & strInput & """"

で。
ダブルクォーテーションは、２つ入力することで画面上に１つ表示されます。
(％とかもそうです)
挟んである""は、文字列を囲む""です。

> > imStrMon.Textこのテキストをダブルコーテーションで囲いたいのですが
> > どのようにしたらよろしいでしょうか？
> 
> Dim strInput as String
>     strInput = imStrMon.Text
>     strInput = """" & strInput & """"
> 
> で。
> ダブルクォーテーションは、２つ入力することで画面上に１つ表示されます。
> (％とかもそうです)
> 挟んである""は、文字列を囲む""です。

ありがとうございます。
無事にできました。
1つのフォームにコマンドボックスが２つあり、
それぞれのコマンドボックスを押すと同じフォームが立ち上がります。
でもそれぞれ処理の名前が違うので同じフォーム内で名前は別別にしたいのですが
このようなときはFlagかなにかをたててあげればよろしいのでしょうか？

> でもそれぞれ処理の名前が違うので同じフォーム内で名前は別別にしたいのですが
> このようなときはFlagかなにかをたててあげればよろしいのでしょうか？

自分でテスト出来る環境にあるのだから
他人に聞く前に自分で試したら如何ですか？

> > でもそれぞれ処理の名前が違うので同じフォーム内で名前は別別にしたいのですが
> > このようなときはFlagかなにかをたててあげればよろしいのでしょうか？
> 
> 自分でテスト出来る環境にあるのだから
> 他人に聞く前に自分で試したら如何ですか？
IF文でコマンドをクリックしたらそれぞれの処理を
するようにしましたがうまくいきませんでした。
初めてこのような操作をするのでどのように
やっていいのかがわかりません。
お願いします。

> IF文でコマンドをクリックしたらそれぞれの処理を
> するようにしましたがうまくいきませんでした。

どう言うコードを書いたのか提示して下さい。

> IF文でコマンドをクリックしたらそれぞれの処理を
> するようにしましたがうまくいきませんでした。
> 初めてこのような操作をするのでどのように
> やっていいのかがわかりません。
> お願いします。

Formの中にコマンドボタンが２つあって、どっちを押しても同じ別フォームが
立ち上がるけど、名前を別々にしたい。。。
「名前」って言うのは、タイトルバーですか？？（上の青い部分の文字？）

Ifで分岐させたコードがまだありましたら見せてください。

> > > でもそれぞれ処理の名前が違うので同じフォーム内で名前は別別にしたいのですが
> > > このようなときはFlagかなにかをたててあげればよろしいのでしょうか？
> > 
> > 自分でテスト出来る環境にあるのだから
> > 他人に聞く前に自分で試したら如何ですか？
> IF文でコマンドをクリックしたらそれぞれの処理を
> するようにしましたがうまくいきませんでした。
> 初めてこのような操作をするのでどのように
> やっていいのかがわかりません。
> お願いします。

コマンドボタンをコントロール配列で作成して、イベントプロシージャで
インデックス別に処理すれば良いでしょう。

Private Sub cmdOperation_Click(Index As Integer)

    If Index = 0 Then
        '処理1
    Else
        '処理2
    End If

End Sub

コマンドボタンが３つ以上だったら　Select Case を使ってください。

補足です。
フォームをShowする前に一旦LoadしてCaptionを設定しましょうね。

Load frmHonyarara
frmHonyarara.Caption = "Nantokakantoka"
frmHonyarara.Show

> > IF文でコマンドをクリックしたらそれぞれの処理を
> > するようにしましたがうまくいきませんでした。
> > 初めてこのような操作をするのでどのように
> > やっていいのかがわかりません。
> > お願いします。
> 
> Formの中にコマンドボタンが２つあって、どっちを押しても同じ別フォームが
> 立ち上がるけど、名前を別々にしたい。。。
> 「名前」って言うのは、タイトルバーですか？？（上の青い部分の文字？）
> 
> Ifで分岐させたコードがまだありましたら見せてください。

名前というのは処理の名前（ログをだすための処理）です。
IF文はできなかったので消してしまいました。
コマンドはそれぞれCommond1、Commnd2と名前がついていてそれぞれを押すと
共通のフォームがたちあがるんですけど。。。
そこでのログを出す名前が違うのでどうやってわけて表示させようか悩んでます。

> 名前というのは処理の名前（ログをだすための処理）です。
> IF文はできなかったので消してしまいました。
> コマンドはそれぞれCommond1、Commnd2と名前がついていてそれぞれを押すと
> 共通のフォームがたちあがるんですけど。。。
> そこでのログを出す名前が違うのでどうやってわけて表示させようか悩んでます。

ん〜別フォームならグローバル変数使うかな〜(--;
Boolean型かLong型で。
で、コマンドボタン内ですが、
Command1とCommand2のコードが同じ(フラグ操作だけ違う)と言うのであれば、
オブジェクト名をcmdOtherFormとか一緒にしてコントロール配列にすれば、
インデックスの値を見てフラグ操作すれば良いので、そっちのが簡単です。

Option Explicit

Private Sub cmdOtherForm_Click(Index As Integer)

　　g_lngProcess = Index    '０ならログ出力処理１、１ならログ出力処理２
    
    Form2.Show

End Sub

g_lngProcessは、標準モジュール内で宣言。(例だとLong型)
であとは、Form2のコード内でg_lngProcessの値を見ながらログ出力を変えれば良し！
かな^^

> > 名前というのは処理の名前（ログをだすための処理）です。
> > IF文はできなかったので消してしまいました。
> > コマンドはそれぞれCommond1、Commnd2と名前がついていてそれぞれを押すと
> > 共通のフォームがたちあがるんですけど。。。
> > そこでのログを出す名前が違うのでどうやってわけて表示させようか悩んでます。
> 
> ん〜別フォームならグローバル変数使うかな〜(--;
> Boolean型かLong型で。
> で、コマンドボタン内ですが、
> Command1とCommand2のコードが同じ(フラグ操作だけ違う)と言うのであれば、
> オブジェクト名をcmdOtherFormとか一緒にしてコントロール配列にすれば、
> インデックスの値を見てフラグ操作すれば良いので、そっちのが簡単です。
> 
> Option Explicit
> 
> Private Sub cmdOtherForm_Click(Index As Integer)
> 
> 　　g_lngProcess = Index    '０ならログ出力処理１、１ならログ出力処理２
>     
>     Form2.Show
> 
> End Sub
> 
> g_lngProcessは、標準モジュール内で宣言。(例だとLong型)
> であとは、Form2のコード内でg_lngProcessの値を見ながらログ出力を変えれば良し！
> かな^^

なんとかできることができました。IF文をたてました。
本当に相談に乗っていただきありがとうございました。
また、いろいろとご質問をしますがよろしくお願いします☆