ここで繰り返しについてのプログラムについて質問させていただいたものです。
いろんな方にプログラムについて教えていただきありがとうございました。コピーして貼り付けしてプログラムは完成したのですが、内容もわからないままとかいやなので下記に貼り付けしてあるプログラムを簡単にでもかまいませんので説明してほしいのです。内容を理解したうえで先に進みたいので是非わかる方よろしくお願いします。
Private Sub Command1_Click()
Label1.Caption = NumKanji(Text1.Text)
End Sub
Private Function NumKanji(ByVal Arg As String) As String
Dim Idx As Long
For Idx = 1& To 10&
Arg = Replace$(Arg, _
Mid$("1234567890", Idx, 1&), _
Mid$("一二三四五六七八九〇", Idx, 1&) _
)
Next
NumKanji = Arg
End Function
いつもお世話になっております。
VBを勉強中です。
VB6→2005にアップグレード後、下記のエラーが発生しました。
"オブジェクト参照がオブジェクト インスタンスに設定されていません。"
以前もこちらでアドバイスをいただき、
デザインの中でADDされているかどうかを確認し、解決に結びついたので
今回も同様かと思い、色々と行ったのですが解決しません。
frmapli_S3のデザイナ内に下記が存在しましたが
原因はここでしょうか？
CType(Me.Frame1, System.ComponentModel.ISupportInitialize).EndInit()
以下はVB6での正常稼動時のソースです。
Public Sub ShowPermValue()
Dim Textbox As Textbox
Dim i As Long: Dim j As Long: Dim k As Long
For i = 0 To 19
For j = 1 To 8
k = i * 10 + j
Set Textbox = frmapli_S3.Controls("text" & k)
Textbox.Text = PermValue(k)
Next
Next
End Sub
Public Sub SetPermValue()
Dim Textbox As Textbox
Dim i As Long: Dim j As Long: Dim k As Long
For i = 0 To 19
For j = 1 To 8
k = i * 10 + j
Set Textbox = frmapli_S3.Controls("text" & k)
PermValue(k) = Textbox.Text
Next
Next
下記はVB2005アップグレード時のソースです。
Public Sub ShowPermValue()
Dim Textbox As TextBox
Dim i, j, k As Integer
For i = 0 To 19
For j = 1 To 8
k = i * 10 + j
Textbox = CType(frmapli_S3.Controls("text" & k), TextBox)
TextBox.Text = PermValue(k)
Next
Next
End Sub
Public Sub SetPermValue()
Dim Textbox As TextBox
Dim i, j, k As Integer
For i = 0 To 19
For j = 1 To 8
k = i * 10 + j
Textbox = CType(frmapli_S3.Controls("text" & k), TextBox)
PermValue(k) = Textbox.Text ←ここでエラー
Next
Next
End Sub
いつもお世話になっております。
VBを勉強中です。
VB6→2005にアップグレード後、下記のエラーが発生しました。
"オブジェクト参照がオブジェクト インスタンスに設定されていません。"
以前もこちらでアドバイスをいただき、
デザインの中でADDされているかどうかを確認し、解決に結びついたので
今回も同様かと思い、色々と行ったのですが解決しません。
frmapli_S3のデザイナ内に下記が存在しましたが
原因はここでしょうか？
CType(Me.Frame1, System.ComponentModel.ISupportInitialize).EndInit()
以下はVB6での正常稼動時のソースです。
Public Sub ShowPermValue()
Dim Textbox As Textbox
Dim i As Long: Dim j As Long: Dim k As Long
For i = 0 To 19
For j = 1 To 8
k = i * 10 + j
Set Textbox = frmapli_S3.Controls("text" & k)
Textbox.Text = PermValue(k)
Next
Next
End Sub
Public Sub SetPermValue()
Dim Textbox As Textbox
Dim i As Long: Dim j As Long: Dim k As Long
For i = 0 To 19
For j = 1 To 8
k = i * 10 + j
Set Textbox = frmapli_S3.Controls("text" & k)
PermValue(k) = Textbox.Text
Next
Next
下記はVB2005アップグレード時のソースです。
Public Sub ShowPermValue()
Dim Textbox As TextBox
Dim i, j, k As Integer
For i = 0 To 19
For j = 1 To 8
k = i * 10 + j
Textbox = CType(frmapli_S3.Controls("text" & k), TextBox)
TextBox.Text = PermValue(k)
Next
Next
End Sub
Public Sub SetPermValue()
Dim Textbox As TextBox
Dim i, j, k As Integer
For i = 0 To 19
For j = 1 To 8
k = i * 10 + j
Textbox = CType(frmapli_S3.Controls("text" & k), TextBox)
PermValue(k) = Textbox.Text ←ここでエラー
Next
Next
End Sub
VB2005で開発しているのですが。
FormClosingイベントの中で。Formの終了イベントを取り消すにはどうしたらよいでしょうか？
たとえば。こんなコードがあったら 終了イベントの取り消しにはなんと書いたらよいでしょうか？
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If TextBox1.Text = "01" Then
MsgBox("完了！！", MsgBoxStyle.OkCancel)
Else
' ここに取消終了のコードを書いたらいいのですか？
End If
End Sub
すいませんが。アドバイスをお願いします。
開発環境：
XinXP Pro
SQL Server2005 Express
VS2005 Pro
VB2005
下記のように、DataSetをXML出力するメソッドを作りました。
Public Sub WriteXml(ByVal xmlDs As DataSet)
Try
Dim fileStream As New System.IO.FileStream(holdFilePath, System.IO.FileMode.Create)
Dim setting As New System.Xml.XmlWriterSettings
'文字コード設定
With setting
.Encoding = System.Text.Encoding.UTF8
.Indent = True
End With
Dim writer As System.Xml.XmlWriter = Xml.XmlWriter.Create(fileStream, setting)
'XMLへの書き込みを行い、FileStreamを閉じる
xmlDs.WriteXml(writer)
writer.Close()
fileStream.Close()
Catch ex As Exception
MsgBox(ex.message)
End Try
End Sub
メソッドは以上です。
writer.Close()、fileStream.Close()については、確実に
処理を行いたいので、Finallyで行おうかと思ったのですが、
その場合、Dim fileStream～、Dim writer～はTryの外に出さないと、
宣言されていないと言われてしまいます。
そうなると今度は、NewやXml.XmlWriter.Create(fileStream, setting)
でコケた場合にCatchが出来ません…。
Usingを使うのが近いかなと思ったんですが、複数Newしている場合
でも使えるのでしょうか？
確実にClose処理を行うための改修箇所、アドバイスいただけ
ないでしょうか？
よろしくお願いします。
