10月 202013
 

概要:.NET Framework 2.0からの新しいプラパティであるが、visualBasic6.0のsilent機能と同じであり、スクリプト エラーのダイアログを表示するかどうかの設定機能である。

使用例:

1、スクリプト エラーのダイアログを表示しない場合

WebBrowser.ScriptErrorsSuppressed=True

2,スクリプト エラーのダイアログを表示する場合

WebBrowser.ScriptErrorsSuppressed=False(ディフォルト値)

 

 Tagged with:
9月 072013
 

注意:下記のコードはVB6.0に適応する
[vb]
Public Function savetoxls(ByVal dd As Adodc) ‘Save the data from Adodc to Excel
Dim ee As String
Dim i As Integer
ee = "ouput asi.xls"

Dim myexcel As New Excel.Application
Dim mybook As New Excel.Workbook
Dim mysheet As New Excel.Worksheet
Set mybook = myexcel.Workbooks.Add
Set mysheet = mybook.Worksheets.Add
myexcel.Visible = True
mysheet.Cells.CopyFromRecordset dd.Recordset
mysheet.Range("A1").Select
myexcel.Selection.EntireRow.Insert
mysheet.Range("a1").Select

For i = 0 To dd.Recordset.Fields.Count – 1
myexcel.ActiveCell.FormulaR1C1 = dd.Recordset.Fields(i).Name
mysheet.Range(Chr(66 + i) & "1").Select
Next i
mybook.SaveAs (App.Path & "" & ee)
End Function
[/vb]

 Tagged with:
9月 072013
 

注意:下記のコードはVB 6.0に適応する
目的:CSVファイルをデータソースとして、読み込むこと
[vb]Me.Adodc1.ConnectionString = "Driver={Microsoft Text Driver (*.txt; *.csv)};DefaultDir=" & App.Path
Me.Adodc1.RecordSource = "select * from outputtemp.csv"
Me.Adodc1.Refresh
Set Me.DataGrid1.DataSource = Me.Adodc1.Recordset
[/vb]

 Tagged with: