恐れ入ります。
http://www.microsoft.com/japan/msdn/vbasic/migration/tips/WebClient/
このページのコードを使わせてもらって
htmlソースをテキストボックスに表示することはできました。表示させたテキストボックスの20行目の10文字の数字を取得したいのですが、どのようにすれば取得できるんでしょうか？val関数も１行目だけみたいですし・・・。ちなみに20行目は
var strReqHomeID = "0000100012";
という具合になっていて 0000100012 を取得したいのです。
-------------------以下コード----------------
Imports System
Imports System.Text
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim download As New Net.WebClient()
Dim temp As Byte() = download.DownloadData(TextBox1.Text)
Dim change As Text.Encoding = Encoding.Default
TextBox2.Text = change.GetString(temp)
Dim filename As String = System.IO.Path.GetFileName(TextBox1.Text)
If filename = "" Then
filename = "Temp.html"
End If
Dim strPath = My.Computer.FileSystem.SpecialDirectories.Desktop
strPath = strPath + "\" + filename
download.DownloadFile(TextBox1.Text, strPath)
WebBrowser1.Navigate(TextBox1.Text)
Catch ex As Exception
Throw
End Try
End Sub
Visual Studio 2003での２次元可変長配列でエラーが発生します。
エラー内容
'System.NullReferenceException' のハンドルされていない例外が microsoft.visualbasic.dll で発生しました。
追加情報 : オブジェクト参照がオブジェクト インスタンスに設定されていません。
ソースは
dim return_array()()
For i As Integer = 0 To 5 Step 1
ReDim Preserve return_array(i)(6)
Next
のような感じです。
ループを使う必要があるのはreturn_array()()が状況に応じてサイズを変更が必要なためです。
掲題の件ですが、クリックされたオプションボタンによって常時テキストの桁数を変えたいのですが、
これを複数の組み合わせで行いたいときはどのsub（form_load等）にどのように記述したらよいでしょうか？
例えば、オプションボタンで3桁、4桁、5桁の選択肢があるとすると、
Private Sub Option1_Click(Index As Integer)
Me.text1.MaxLength = 3
End Sub
Private Sub Option2_Click(Index As Integer)
Me.text2.MaxLength = 4
End Sub
Private Sub Option3_Click(Index As Integer)
Me.text3.MaxLength = 5
End Sub
となりますが、この組み合わせを複数作りたい場合、オプションボタンとテキストboxをコントロール配列にして、
Dim i As Integer
For i = 0 to 3
If Option1(i).Value = True Then
Me.text(i).MaxLength = 3
ElseIf Option2(i).Value = True Then
Me.text(i).MaxLength = 4
ElseIf Option3(i).Value = True Then
Me.text(i).MaxLength = 5
End If
Next
このような形になると思いますが、これですとForm_Loadに貼り付けても常時桁を変えることができません。
どのsubにどのようにコードを記述したらよいか教えていただけたら幸いです。
よろしくお願い致します。
ACCESS VBAで作成済みのExcelファイル
(複数シートがあります）の
コピーを作成し
そのファイルでテーブルのデータを
出力したいと思っています。
シートが１つならできましたが
シートが複数あるとできません。
できる方法を教えてください。
なおシートが一つの場合は、下記でできました。
Dim oXLS As New Excel.Application
Dim NewBook As Excel.Workbook
oXLS.Workbooks.Open Filename:=既存ファイル名
oXLS.ActiveWorkbook.Sheets(シート名).Copy
Set NewBook = oXLS.ActiveWorkbook
oXLS.Workbooks(ファイル名).Close
複数シートがある場合の
作成方法を教えてください。
よろしくお願いします。
お世話になります。
今、Excel_VBAで、あるデータをリスト表示にしているのですが、ながいデータになりますので水平スクロールバーをつけたいと思います。
標準のプロパティにはないので、"SendMessage"APIを使用し、コーティングをしているのですがうまくいきません。
[標準モジュール]
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA"(ByVal hwnd As Long, ByVal wMsg As Long,ByVal wParam As Long, lParam As Long) As Long
[フォーム/ボタンクリックイベント]
Private Sub Form_Load()
List1.AddItem "あああああああああああ"
List1.AddItem "いいいいいいいいいいい"
List1.AddItem "ううううううううううう"
lRtn = SendMessage(List1.hwnd,LB_SETHORIZONTALEXTENT, 240, 0)
End Sub
以上を実行すると、上記の"List1.hwnd"のhwndの部分で
エラーになってしまいます。
エラー内容は、「メソッドまたはデータメンバがみつかりません」です。
宜しくお願い致します。
