Dim objForm as New Form1
objForm .ShowDialog()
とフォームを開いた後、objForm.Dispose()と記述してフォームオブジェクトを解放するべきでしょうか？
解放するべきだとは思うのですが、色々な人のソースを見ると、そのようになっていないような気がするので…。
下記のコードを変更して、コントロールの値を配列に代入して、
その値をもとに、ボタンを複製して追加したいと思っています。
Public Class frmStart
Dim btnNewButton1 As New Button
Private Sub frmStart_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
NewButton1.Text = "処理1"
btnNewButton1.ForeColor = Color.DimGray
btnNewButton1.Location = New Point(10, 100)
btnNewButton1.Size = New Size(180, 30)
'// ボタンを追加します
Me.Controls.Add(btnNewButton1)
end sub
End Class
やりたいことは、Dim btnNewButton() As New Button のようにデータを配列にして、
btnNewButton(0).ForeColor = Color.DimGray
btnNewButton(0).Location = New Point(10, 100)
btnNewButton(0).Size = New Size(180, 30)
btnNewButton(1).ForeColor = Color.DimGray
btnNewButton(1).Location = New Point(380, 100)
btnNewButton(1).Size = New Size(180, 30)
'// ボタンを追加します
Me.Controls.Add(btnNewButton(0))
Me.Controls.Add(btnNewButton(1))
という事をしたいのですが、方法が解らなくて困ってます。
お知恵を貸してください。
csvにかきこまれているフォルダだけ指定されたフォルダにコピーしたいのですが、StreamReaderでｃｓｖを読み込み一行ごとにコピー処理しています。
コピー方法は、
dim di as new system.io.directoryinfo(コピー元フォルダ）
for each fi as system.io.fileinfo in di.getfiles()
fi.copyto(コピー先フォルダ & fi.name,true()
next
としています。
フォルダ数が30位で全体の容量は1.2ＧＢぐらいです。
開始すると、応答しなくなりますが、コピーは行われました。
フリーズしてしまうのはなぜでしょうか？
もっといい方法があればご指導願います。
主にネットワーク上にあるフォルダにコピーするよていです。
VB2005 の初心者です。
iniファイルで指定したフォルダ（パス）を読み込んで処理をしたいのですが、指定したパスが誤っている場合は、どのようにチェックすれば良いのでしょうか。
下記サンプルのとおり、System.IO.Path.GetInvalidPathChars()
でチェックする方法があるようですが、ヘルプには「ファイル名やディレクトリ名としては無効なすべての文字が含まれるかどうかは、保証されません。」とあるようです。
実際、"Cd:\<>Work\Test.txt" というパスにすると、チェックはスルーしてしまいました。
Dim filepath As String = "C:\<>Work\Test.txt"
Dim invalidPathChars As Char() = System.IO.Path.GetInvalidPathChars()
For Each invalidChar As Char In invalidPathChars
If filepath.IndexOf(invalidChar) > -1 Then
Console.WriteLine("使用できない文字 " & invalidChar.ToString() & " が含まれています。")
End If
Next
誤ったパスを完全にチェックする方法はあるのでしょうか。
何かヒントになることでも良いので、皆様の知恵をお借りできれば幸いです。
よろしくお願い致します。
はじめまして、ひろです。
VisualBasic 2008 .NETでHTTPサーバーへPOST要求を送信する
プログラムを作成しているのですが、うまく動作しません。
仕様書でクライアントからサーバーへ
要求URL:https://ABC.co.jp
要求HEADER:POST https://ABC.co.jp HTTP/1.0
要求BODY:A=1234
POST要求するよう指示されているのですが、
下記のようなプログラムではERRORが返ってきます。
問題ある箇所がわかる方いらっしゃたら、
教えてほしいのですが。
よろしくお願いします。
Sub aaabbb()
Dim objXML As Object
Dim strXMLDoc As String
Dim intRet As Integer
Dim strURL As String
Dim strKey As String
strURL = "https://ABC.co.jp"
strKey = "A=1234"
objXML = CreateObject("MSXML2.ServerXMLHTTP")
objXML.open("POST", strURL, False)
objXML.send(strKey)
strXMLDoc = objXML.responseText
intRet = objXML.status
objXML = Nothing
End Sub
