おはようございます。
現在、VB.NETでフォルダ選択のダイアログを表示させたいと
思っているのですが以下の記述だとダイアログは表示されますが
選択したフォルダのパスを取得する方法がわかりませんでした。
この後にどんな記述をすれば取得できるのでしょうか？
宜しくお願いします。
Dim f As New BrowseFolder()
Console.WriteLine(f.BrowseDialog("出力先フォルダを指定してください。", Me))
またよろしくお願いいたします。
先月よりまたぜんぜんやったことのない言語をいじることになってしまいました。
Visual Studioってけっこうヒント出してくれるので、ひーこら言いながら書けてはいますが、ここは解決できません…。
ネット内を探してもありそうで見つからないんで、この場をお借りいたします。
.NET 2005 の Visual Basic についてです。
' ------例
Class Form1 As Form
Dim i As Integer
Dim cmb(99) As Combobox
For i = 0 To 99
AddHandler cmb(i).TextChanged, AddressOf cmb_TextChanged
Next i
...
Sub cmb_TextChanged( なんとかかんとか )
...
Msgbox("入力検知")
End Sub
End Class
抜き出すとこんなようなコードのはずですが、要するに、複数のコンボボックスにTextChangedのイベントハンドラを仕組んだだけです。
これで「できた！」と思ってたのですが、実行してみると、１文字ずつ入力するぶんにはいっこうに問題ないんです。ところが日本語変換を経由してやると、いっぺんに２文字以上入ります。
そのとき、例えば「生麦生米生卵」と変換して入力すると、６回ハンドルされて６回メッセージが出てきます。
ちょっとこれだとうるさいです。
ので、ハンドルが１回だけになるようなことって、可能なのでしょうか。
なお、入力は手入力する場合の他に、プログラム上から複数のボックスへ入力する場合もあります。
重ねてよろしくお願いいたします。m(__)m
異なるクラス間で共通の変数aを使いたいのですが、うまくいきません。あるクラスForm1でaを宣言しても他のクラスClass1でも宣言しないとエラーが出てしまいます。
以下のクラスをデバイスアプリケーションとして作成し、
Public Class Form1
Public a As Integer = 100
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Test As New MyLibrary.Class1
Test.Plus1()
MsgBox(a, MsgBoxStyle.Information, "実験")
End Sub
End Class
以下のクラスをクラスライブラリMyLibraryとして作成します。
Public Class Class1
Dim a As Integer = 0
Public Sub Plus1()
a += 1
End Sub
End Class
Form1でボタンを押すと、メッセージボックスに100と表示されます。
（関数Plus1の効果なし）
ちなみにClass1の「Dim a」を「Static a」にしてクラスライブラリ(DLL)を最初に呼び出したときだけ初期化すればよいと思ったのですが、そうすると「'Static' は、メンバ変数宣言では有効ではありません。」というエラーが出てしまいます。
解決方法をご存知の方、ご教授願います。
また、クラスライブラリ(DLL)を作成するとまとまりができてプログラムの変更がしやすいと思いますが、やはり処理速度が遅くなるなどの問題もあるのでしょうか？
こんにちわ。
ちょっと疑問に思いまして、お聞きしたいのですが。
VB.net2005を使用しています。
定数宣言を構造体で宣言するのは
考え方として変でしょうか？
たとえば
public structure TEST
public dmy as byte '←エラー解除のダミー
public const CNUM as integer = 1
end structure
public sub testM()
Lbl1.Text = TEST.CNUM
end sub
のように作り
定数宣言が多くあった場合に
いちいちページ切り替え等をしなくても
TEST.と打った後にすぐに一覧がでてくるので
便利だと思ったのですが。
この考え方はやっぱりへんなんですかね？
もともとC言語出身なもので、
色々試していて疑問におもったのです。
もっとほかによい方法あるよ！ってのが
あればお教えください。
お暇なときでよいので回答お願い致します＾＾
バックアップをCドライブからEドライブにとるために
ROBOCOPY C:\ E:\ /e /xo
とバッチプログラムを組んでおりがVB2005で作成したForm上のボタンをクリックするとバッチプログラムが実行されるようになっています。
その時にForm上に進行具合を表示させたいです。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
System.Diagnostics.Process.Start("ROBOCOPY C:\ E:\ /e /xo")
End Sub
labelを配置してコピー中は「バックアップ中です」、コピー終了後には「完了しました」と表示させたいです。
違う方法でも構わないのですが、とりあえず作業中、完了わかればいいです。
どなたかご教授願います。
ＶＢ6.0で開発しています。
以下のようにクラスモジュールを作ったのですが
フォームでコマンドボタンを押したら
処理されるようにしたいのですが
どうすればいいかわかりません。
教えてください。
Class CExcel
Public App
Public WshShell
Public ErrDescription
Private WorkBook
Public CurBook
Private Sub Class_Initialize()
Call InitSetting()
End Sub
Private Sub Class_Terminate()
Call Quit()
End Sub
Public Default Function InitSetting()
if IsEmpty( App ) then
Set App = CreateObject("Excel.Application")
end if
if IsEmpty( WshShell ) then
Set WshShell = CreateObject("WScript.Shell")
end if
App.DisplayAlerts = False
Set CurBook = Nothing
end function
Public Function Quit()
If not IsEmpty( App ) Then
For Each Workbook In App.Workbooks
WorkBook.Saved = True
Next
App.Quit
Set App = Nothing
App = Empty
Set CurBook = Nothing
End If
End Function
Public Property Let Visible( bFlg )
App.Visible = bFlg
End Property
Public Property Get Visible
Visible = App.Visible
End Property
Public Function Open( strPath )
on error resume next
Set Open = App.Workbooks.Open(strPath)
if Err.Number <> 0 then
Set Open = Nothing
ErrDescription = Err.Description
Exit Function
end if
on error goto 0
Set CurBook = Open
' アクティブなウィンドウを最大化
App.ActiveWindow.WindowState = xlMaximized
End Function
Public Function Create( strPath )
Dim nBooks
App.Workbooks.Add
nBooks = App.Workbooks.Count
Set Create = App.Workbooks( nBooks )
Set CurBook = Create
CurBook.Activate
App.ActiveWindow.WindowState = xlMaximized
if strPath <> "" then
on error resume next
CurBook.SaveAs( strPath )
if Err.Number <> 0 then
MsgBox( Err.Description )
Exit Function
end if
on error goto 0
end if
End Function
Public Function Close( MyBook )
if IsObject( MyBook ) then
MyBook.Saved = True
MyBook.Close
Set MyBook = Nothing
MyBook = Empty
else
if CurBook is Nothing then
else
CurBook.Saved = True
CurBook.Close
Set CurBook = Nothing
end if
end if
End Function
Function Save( MyBook )
if IsObject( MyBook ) then
MyBook.Save
else
CurBook.Save
end if
End Function
Function SaveAs( MyBook, strPath )
if IsObject( MyBook ) then
MyBook.SaveAs strPath
else
CurBook.SaveAs strPath
end if
End Function
Function Load( strPath )
if not IsEmpty( App ) then
MsgBox( "Excel をロードする前に、Quitを実行して下さい " )
Exit Function
end if
Call WshShell.Run( _
"RunDLL32.EXE shell32.dll,ShellExec_RunDLL " & _
strPath _
)
End Function
End Class
