質問ばかりでもうしわけないのですが
タイトルにあるようにコピーの状況を
プログレスバーで表示できたらなと思い作成したのですが
うまく動きません。
プログレスバー自身単独では動くのですがコピーと合わせると
フリーズしてしまいます。
プログラミング経験と発想力が乏しいのでご教授いただけたら幸いです
Private Sub Bt_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_1.Click
Dim fname1 As String = "C:\フォルダ名A"
Dim fname2 As String = "C:\フォルダ名B"
Dim ber1 As Integer
If IO.Directory.Exists(fname1) = True Then
Me.Lb_1.Text = "テキスト文字"
For ber1 = 0 To 20
Me.ProgressBar1.Value = ber1
System.IO.File.Copy("コピー元テキストファイルA", "コピー先テキストファイルA", True)
My.Computer.FileSystem.CopyDirectory("コピー元フォルダA", "コピー先フォルダA", True)
My.Computer.FileSystem.CopyDirectory("コピー元フォルダB", "コピー先フォルダB", True)
Next ber1
If IO.Directory.Exists(fname2) = True Then
System.IO.File.Copy("コピー元ファイルB", "コピー先ファイルB", True)
End If
MessageBox.Show("終了報告テキスト", "タブ名")
' System.IO.Directory.Delete("コピー元", True)
Me.ProgressBar1.Value = 0
Application.Exit()
こんな感じで作成しております。
ファイル自身が１GBぐらいあるので
フリーズしていないかプログレスバーや％表示でしらせたいので
教えていただけると助かります。
よろしくお願いします。
本日でちょうど６０日目というVB.NET 初学者です。
未だ Sub Main() での基本事項の確認に終始しています。
３日まえより基本事項の最終課題にクラスを選んで挑戦中。
ですから、少し、質問しなければ判らないことだらけです。
今回の質問は、＜既定のプロパティ＞についてです。
' ==========================
' クラス; 既定のプロパティ
' ==========================
Module theDefault
Sub Main()
Dim T1 As New TEST1
T1(0) = "Kenji"
Debug.Print(T1(0))
Debug.Print(T1.MembersFriends(0))
End Sub
End Module
このように、確かに、既定のプロパティは省略した構文で書けるので便利。
それはわかります。
が、問題は、その具体的な活用イメージがサッパリです。
「例えば、こういうケースに使うととっても便利」という具体例があれば教えてください。
' ==================================================================
' クラス TEST1
' ==================================================================
<Serializable()> Public Class TEST1
Private _Member1 As String
Private _Member2 As String
' //
' // パラメータを持つ初期化
' //
Public Sub New(ByVal aMember1 As String, ByVal aMember2 As String)
_Member1 = aMember1
_Member2 = aMember2
End Sub
End Class
' ===========================
' クラス TEST1 の派生クラス
' ===========================
<Serializable()> Public Class NEWTEST1
Inherits TEST1
Private _Member1 As New TEST1
Private _Member2 As New TEST1
End Class
これでもＯＫかと思うのですが・・・。
パラメータ化されていないコンストラクタをクラス TEST1 に書くように促すエラーがでます。
もちろん、パラメータを持たないコンストラクタを用意すればエラーは回避できます。
問題は、「Visual Basic のプログラミングガイド」からその理由を読み取れないことです。
＞Visual Basic のオブジェクトの概要
＞クラスについて
＞オブジェクトの作成と使用
まだ、ここしか読んでいません。
が、どうにも気になったので質問します。
１、エラーの回避策としては何が正しいのか？
２、その根拠は？
この２つが知りたいです。
会社で一緒に働いていた知人が、CADで使うスクリプトファイルをくれました。
内容は「円（○）からクロス（+）マークへの変換」です。
下記のような記述のスクリプトファイルを実行すると、
CADファイル内の円（○）をcross.dwgファイルに示されているプラス（+）マークへ変換する・・・
と、いう内容らしいのです。
そして、知人が退職しました。
そして今回、円→プラスではなく、
点→プラスに変換したい場面が出てきました。
なんとか、この知人のスクリプトファイルを活用したいのですが、
どこをどのようになおせばいいのか。。。。。
皆無ですので、VBSのわかる方、どうか教えてくれませんか？
多分、文中の"CIRCLE"と言うところを点に関わるコマンドにすればいいような気もするのですが・・・・わかりません。
スクリプトファイルの内容は、下記のとおりです。
↓
Dim Acad 'Acad変数はErサブルーチンでも使うのでここで宣言
Call Main 'Mainサブルーチンコール
Sub Main()
Set Acad = CreateObject("AcadRemocon.Body")
Do
If Not Acad.acDxfOut("ブロックを挿入する点を選択／右クリックで終了") Then Er: Exit Do
If Not Acad.DxfExtract(Cnt, Arr, "ENTITIES", "", "CIRCLE", "10|20") Then Er: Exit Do
If Cnt > 0 Then
For i = 1 To Cnt
x = Arr(1, i)
y = Arr(2, i)
If Not Acad.acPostCommand("^C^C-insert^Mcross^M" & Acad.Pt(x, y) &"^M^M^M") Then Er: Exit Do 'Blockは挿入するブロック名
Next
Else
Acad.acShowMessage "点がありませんでした。 "
End If
Loop While True
End Sub
'エラー処理
Sub ER()
'ユーザーによるキャンセル
If Acad.ErrNumber = vbObjectError + 1000 Then
'ここにキャンセル時の処理を追加
Else
'エラー内容表示
Acad.ShowError
End If
End Sub
↑
どうか、よろしくお願いします。
本当に、勉強不足ですみません。。
VB初心者です。
処理を行う都度更新のかかる変数をUndo用にArrayListへ保存しています。
最新のデータを0番目に格納したいため、.Insert(0,変数)を繰り返し行っていますが、
以前格納したItemデータ(1番目以降)も最新で格納したデータ(0番目)になってしまいます。
変数は複数の入れ子構造体を持つ構造体変数でサイズは29962292バイトあります。
構造体の詳細と変数の初期化処理は省略しますが、このような感じです。
public Structure AAA
・・・
dim ValBBB as BBB
・・・
End Structure
public Structure BBB
・・・
dim val
・・・
End Structure
dim chk as New AAA
dim AList as New ArrayList
chk.ValBBB.val = 10
AList.Insert(0,chk)
chk.ValBBB.val = 20
AList.Insert(0,chk)
chk.ValBBB.val = 30
AList.Insert(0,chk)
dim str as string = ""
str = "AList.Count = " & AList.Count & " "
For loop1 as integer = 0 To AList.Count - 1
str = str & CType(AList(loop1),AAA).ValBBB.val & " "
Next
MsgBox(str)
メッセージBOXに表示される結果が
"AList.Count = 3 30 30 30"
となってしまうんです。
サイズ小さめの構造体で試したらうまくいくのですが、
上記の処理がうまく動作しません。
・Itemサイズに上限あり？
・AListの属性かなにか？
・変数chkの属性かなにか？
・ArrayListの使い方ミス？
原因や解決法などおわかりの方いましたら、回答よろしくお願いします。
