はじめまして。
ＶＢのテキストボックスに値を入力していき、ある桁数になるとメッセージを表示する仕組みを作りたいと考えています。
例えばVBで用意したテキストボックスにキーボードで123と入力しキーボードの4を押した直後に「桁数は3桁までです。」というメッセージを表示したいのですがいい方法を教えていただけないでしょうか？
自分で以下のように作ってみたのですがこれだとキーボードで123と入力し次に4を入力した時にテキストボックスに4が表示されてからエラーが出ます。そうではなく4をテキストボックスに表示させずに4をおしたら以下のメッセージが出るようにしたいのです。
よろしくお願い致します。
Private Sub text1_Change()
If Len(text1.Text) > 3 Then
MsgBox "桁数は3桁までです。", vbOKOnly + vbInformation, "情報"
End If
End Sub
VisualBasic2005ExpressEditionを使用しています。
そこで質問なのです。
Form1のウインドウの画像（ピクチャボックス）やラベルをクリックしたときForm2の画面を表示し、Form1を閉じるには
Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click
End Sub
の真ん中にどういう風に記述すればいいのでしょうか。うえはラベルの場合です。
よろしくお願いします。
VisualBasic2005ExpressEditionを使用しています。
そこで質問なのです。
Form1のウインドウの画像（ピクチャボックス）やラベルをクリックしたときForm2の画面を表示し、Form1を閉じるには
Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click
End Sub
の真ん中にどういう風に記述すればいいのでしょうか。うえはラベルの場合です。
よろしくお願いします。
VisualBasic2005ExpressEditionを使用しています。
そこで質問なのです。
Form1のウインドウの画像（ピクチャボックス）やラベルをクリックしたときForm2の画面を表示し、Form1を閉じるには
Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click
End Sub
の真ん中にどういう風に記述すればいいのでしょうか。うえはラベルの場合です。
よろしくお願いします。
お世話になります。
EXCEL VBAで指定したフォルダのEXCELブックが１つでもオープンされているかどうか知りたいのですが、可能でしょうか。
という質問を行い、以下の回答をいただきました。
自分でテストしてみてできたと思ったのですが、
他の人が開いているのが分かりませんでした。
他の人がオープンしているかどうか知ることは可能でしょうか？
よろしくお願いします。
以下の回答といただきました。
－－－－－－－－－－－－－
※[ツール]-[参照設定]で
Microsoft Scripting Runtimeにチェック入れて下さい。
Dim Fso As New FileSystemObject 'ファイルシステムオブジェクト
Dim xlBook As Workbook '開かれているブック
Dim objFolder As Folder '調べるフォルダ
Dim bOpenedBook As Boolean '開かれているかフラグ
'調べるフォルダを「C:\tmp」とする。
Set objFolder = Fso.GetFolder("C:\tmp")
bOpenedBook = False
'今開かれているブックでループする。
For Each xlBook In Excel.Workbooks
If Len(xlBook.Path) > 0 Then
'ブックが保存されているフォルダと調べるフォルダが一致するか？
If objFolder Is Fso.GetFolder(xlBook.Path) Then
'一致すれば開かれている
bOpenedBook = True
Exit For
End If
End If
Next
'結果をメッセージボックスで表示
If bOpenedBook Then
MsgBox "開かれています。"
Else
MsgBox "一つも開かれていません。"
End If
あるライブラリを呼ぼうとしているのですが、
dim str as string * 100
dim lngLen as long
lngLen = dlllib str
と実行すると問題ないのですが、上記の100というのは、
固定値に出来ません。この値は、
lngLen = dlllib 0
で取得できる、lngLenの値にしたいです。
その場合は、どうすればよいでしょうか？
久しぶりにVB6をやって困っています。
よろしくお願いします。
