VBの質問です。
１．
↓のようなサンプルがございます。:(コロン)の意味がわかりません。
Public Const A As Byte = 0
Public Const B As Byte = 1
Select Case xxxxxxxxxx
Case A:
xxxxxxxx
Case B:
xxxxxxxx
End Select
２．
MSCOMMコントロールを使用しています。
問題で、
Dim A
AにMSCOMMコントロールをセットするとあります。
Dim A As MSCOMM
これで正しいのでしょうか?
下記のコードで、アプリケーション実行中 EXCELが起動したままになり
アプリケーション終了時に、EXCELも一緒に終了する
という、タスクマネージャーに残るという動作になります。
どこの COM の扱い方がまずかったのでしょうか？
教えてください。お願いします。
※文字数制限で、SQLコネクション周り、SQL系宣言 エラー処理を消しました。
※EXCEL周りに関してはすべてそのままです。
変数に代入している COMオブジェクトをすべて Marshal.FinalReleaseComObject してもEXCELが終了しないので何かしら COMオブジェクトを見落としていると思うのですが どれだかわかりません。
よろしくお願いします
Imports Microsoft.Office.Interop
Imports System.Runtime.InteropServices
Public Class Cls_Print_Excel
Public Sub S_Print_Excel()
'エクセルアクセス用
Dim _xslFile As String = "C:\base.xls"
Dim objExcel As Excel.Application = Nothing
Dim objWorkBook As Excel.Workbook = Nothing
Dim objWorkBooks As Excel.Workbooks = Nothing
Dim xlSheet As Excel.Worksheet = Nothing
Dim xlRange As Excel.Range = Nothing
Dim xlPageSetup As Excel.PageSetup = Nothing
Try
objExcel = New Excel.Application
objWorkBooks = objExcel.Workbooks
objWorkBooks.Open(_xslFile)
objWorkBook = objExcel.ActiveWorkbook
xlSheet = DirectCast(objWorkBook.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet)
rs = cm.ExecuteReader()
I = 3
Do While rs.Read
Dim AA() As String = {"B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M"}
Dim K As Integer
For K = 0 To 11
IN_Range(xlSheet, AA(K) & I.ToString, rs(K).ToString)
Next
xlRange = xlSheet.Range("3:3")
xlRange.Copy()
A = A + Marshal.ReleaseComObject(xlRange)
xlRange = xlSheet.Range(I.ToString & ":" & I.ToString)
xlRange.PasteSpecial( _
Paste:=Microsoft.Office.Interop.Excel.XlPasteType.xlPasteFormats, _
Operation:=Microsoft.Office.Interop.Excel.XlPasteSpecialOperation.xlPasteSpecialOperationNone, _
SkipBlanks:=False, Transpose:=False)
A = A + Marshal.ReleaseComObject(xlRange)
xlRange = xlSheet.Range(I.ToString & ":" & I.ToString)
xlRange = xlRange.EntireRow
xlRange.AutoFit()
A = A + Marshal.ReleaseComObject(xlRange)
xlRange = xlSheet.Range(I.ToString & ":" & I.ToString)
N = 5.5
While True
If CType(xlRange.RowHeight, Double) < N Then
Exit While
Else
N += 5.5
End If
End While
xlRange.RowHeight = N '高さを設定
A = A + Marshal.ReleaseComObject(xlRange)
I += 1 'ループカウンタを積む
Loop
xlPageSetup = xlSheet.PageSetup
xlPageSetup.PrintArea = "B2:M" & (I - 1).ToString
A = A + Marshal.ReleaseComObject(xlPageSetup)
S_filename = System.IO.Path.GetDirectoryName(_xslFile) & Format(Now(), "yyyy-MM-dd-HH-mm-ss") & ".xls"
objWorkBook.SaveAs(S_filename)
objWorkBooks.Close()
A = A + Marshal.ReleaseComObject(objWorkBooks)
objExcel.Quit()
A = A + Marshal.ReleaseComObject(objExcel)
Exit Sub
Catch ex As Exception
Finally
End Try
End Sub
Private Sub IN_Range(ByRef wSheet As Microsoft.Office.Interop.Excel.Worksheet, _
ByVal iCell As String, _
ByVal Value As String)
Dim rng As Excel.Range = wSheet.Range(iCell)
rng.Value = Value
Marshal.FinalReleaseComObject(rng)
rng = Nothing
End Sub
End Class
Visual Basic 2010でDatasetとListviewを使ってプログラムを作成しています。
DatasetのデータをListviewに表示させるプログラムは下記のコードで完成しました。
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With ListView1
.Columns.Add("date", 40, HorizontalAlignment.Left)
.Columns.Add("no", 40, HorizontalAlignment.Left)
.Columns.Add("住所", 100, HorizontalAlignment.Left)
showlist()
End With
End Sub
Private Sub showlist()
Try
住所TableAdapter.Fill(Kz526DataSet.住所)
Catch ex As Exception
MessageBox.Show(ex.Message, "住所テーブル")
End Try
With Kz526DataSet.住所
For i As Integer = 0 To .Rows.Count - 1
ListView1.Items.Add(.Rows(i)("date"), (i))
ListView1.Items(i).SubItems.Add(.Rows(i)("no"))
ListView1.Items(i).SubItems.Add(.Rows(i)("住所"))
Next
End With
End Sub
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
次に、Datasetのデータの内一部だけListviewに表示させることにしました。そのため、テキストボックスを設けて、その日付と同じデータをListviewに表示させます。
テキストボックスを設けて、ボタンをクリックしてデータをListviewに表示させようとしたコードです。
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With ListView1
.Columns.Add("date", 40, HorizontalAlignment.Left)
.Columns.Add("no", 40, HorizontalAlignment.Left)
.Columns.Add("住所", 100, HorizontalAlignment.Left)
showlist()
End With
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
住所TableAdapter.Fill(Kz526DataSet.住所)
With Kz526DataSet.住所
For c As Integer = 0 To .Rows.Count - 1
If TextBox1.Text = Kz526DataSet.住所.Rows(c)("data") Then
ListView1.Items.Add(.Rows(c)("date"), (c))
ListView1.Items(c).SubItems.Add(.Rows(c)("no"))
ListView1.Items(c).SubItems.Add(.Rows(c)("住所"))
End If
Next
End With
End Sub
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
このコードでは、条件式とListViewの関係がいまくいきません。エラーメッセージは次の様に表示されます。
「'3' の InvalidArgument=Value は 'index' に対して有効ではありません。
パラメーター名: index」
いろいろ試行錯誤してみましたところ、「ListView1.Items(c).SubItems.Add(.Rows(c)("no"))」のところで止まります。
if文では、Thenのあとは１行しか書けないのでしょうか。書き方をご指導ください。
Windows 7で動くプログラムの作成方法(移行方法)について質問です。
◆プログラム
VB.NET(.NET FRAMEWORK1.1)で作成したプログラムがあります
◆現行のユーザー環境
Windows XPで動かしていました
◆移行したい環境
Windows 7で動かしたいです
◆質問
OSが32ビットから64ビットになるにあたってDLLを変更する必要があると思っていますが、旧システムで使っていたDLLに対応する、新システムのDLLはどうやって探せば良いのでしょうか？
コンパイル、EXEの作成はWindows7環境で実施するという認識でよいでしょうか？
開発環境：Visual Basic 2008/ACCESS 2000
ＶＢ２００８よりＡＣＣＥＳＳを更新したり、ＡＣＣＥＳＳのレポートを使用したりする
プログラムを作成しています。
その際に、１つのＡＣＣＥＳＳに複数のレポートを作成している事から、複数のプログラム
からＡＣＣＥＳＳを起動させようとするとエラーとなってしまいます。
ＡＣＣＥＳＳをそれぞれ分けてしまえば問題ないですが、、、、
そもそも１つのＡＣＣＥＳＳファイルを複数からアクセス（複数のＶＢプログラム）するという事が
不可能なのでしょうか？
あるいは、下記の記述にあるように、データベースを開こうとするかエラーである為、
開いているか確認の記述をし、既に開いているようだったら、その処理をとばすような事
をすれば問題ないのでしょうか？？？
教えて頂きたいと思います。
よろしくお願いします。
《記述内容》
Dim ac As Object
ac = CreateObject("Access.Application")
With ac
'アプリケーションを表示する
ac.Visible = True
'データベースを開く
ac.OpenCurrentDatabase("C:\sample.mdb")
'名前を指定してレポートを開く
ac.DoCmd.OpenReport("R_一覧表", 2) 'acViewPreview
'レポートの最大化
.DoCmd.Maximize()
'オブジェクトの解放
System.Runtime.InteropServices.Marshal.ReleaseComObject(ac)
End With
ac = Nothing
