[pear_error: message="Success" code=0 mode=return level=notice prefix="" info=""]
[機能] AccessデータベースからSELECTする際のサンプルスクリプト [ソース] Dim conn As New OleDb.OleDbConnection Dim cmd As OleDb.OleDbCommand Dim myReader As System.Data.OleDb.OleDbDataReader conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & dbpath & ";" conn.Open() cmd = conn.CreateCommand() cmd.CommandTimeout = 15 * 1 cmd.CommandText = "SELECT * FROM (copylist) WHERE ([copylist].[order])>=0" myReader = cmd.ExecuteReader() While myReader.Read...
vb2008スクリプトメモ | 2010.02.08 Mon 22:19
[機能] ファイルをftpアップロードする基本スクリプト [ソース] Imports System.Net --------------------------------------- Dim wc As System.Net.WebClient = Nothing wc = New System.Net.WebClient() wc.Credentials = New System.Net.NetworkCredential(my_ftpid, my_pass) to_uri = "ftp://" + my_domain + "/" + my_directory + "/" + my_filename wc.UploadFile(to_uri, tempfile) wc.Dispose() [メモ] 非常に簡単にftpクライアントが実装できる。なんて便利。 上記サンプルはバイナリ...
vb2008スクリプトメモ | 2010.02.08 Mon 22:04
[機能] ftpでログインして、ディレクトリがなければつくるサンプルスクリプト [ソース] Dim ftpReq As System.Net.FtpWebRequest = Nothing Dim ftpRes As System.Net.FtpWebResponse = Nothing Dim path As String = "ftp://" + my_domain + "/" + my_directory Try ftpReq = CType(System.Net.WebRequest.Create(path), System.Net.FtpWebRequest) 'ログインユーザー名とパスワードを設定 ftpReq.Credentials = New System.Net.NetworkCredential(ftpid, pass) ' ディレクトリ作成コマン...
vb2008スクリプトメモ | 2010.02.08 Mon 21:58
[機能] 画面の拡大縮小にあわせてDataGridViewやWebBrowserを拡大縮小する方法 [ソース] これも、なんとプログラム不要なのだぁ^^、 DataGridViewやWebBrowserのAnchorプロパティを、Top、Bottom、Left、Rightにするだけ。 [メモ] なんと便利なことか、データを表で表示するDataGridViewや、Webページを表示するWebBrowserをFormに配置したときには、忘れずに是非活用いたしませう。^v^ JUGEMテーマ:プログラミング
vb2008スクリプトメモ | 2010.02.08 Mon 18:00
[機能] 表示するFormの表示位置を指定する方法 [ソース] コード不要。 Formのプロパティ、StartPositionプロパティをいじればOK^^ ------------------------------------------------- '昔ながらの方法使うなら、これ^^ Dim Rect As Rectangle Rect = Screen.PrimaryScreen.WorkingArea Me.Top = (Rect.Height - Me.Height) ¥ 2 Me.Left = (Rect.Width - Me.Width) ¥ 2 [メモ] 便利やん。VB2.0の頃は、わざわざペアレントの幅と高さとってきて 自分の大きさ引き算して中央表示しとっ...
vb2008スクリプトメモ | 2010.02.08 Mon 17:46
[機能] Formの最前面表示(設定) [ソース] ソースは不要。 FormのプロパティのTopMostをTrueにするだけでOK [メモ] なんと、簡単なことか、Formの最前面表示がこれほど簡単とは。^^ なお、TopMostしたFormから、別FormをShowしてもShowDialogしても、別Fromはうしろに隠れたまま。真に最前面表示ってことでした。 JUGEMテーマ:プログラミング
vb2008スクリプトメモ | 2010.02.08 Mon 10:04
[機能] 文字コードの変換基本スクリプト [ソース] Dim eucEnc = System.Text.Encoding.GetEncoding("EUC-JP") Dim sjisEnc = System.Text.Encoding.GetEncoding("shift_jis") Dim motoBytes() As Byte = eucEnc.GetBytes(moto) Dim atoBytes() As Byte = System.Text.Encoding.Convert(sjisEnc, eucEnc, motoBytes) Dim ato As String = sjisEnc.GetString(atoBytes) [メモ] EUC文字列→文字コード変換→SJIS文字列という直接変換の関数は用意されていないが、Byte配列型なら、文字コードを変換できる関数が用意...
vb2008スクリプトメモ | 2010.02.08 Mon 09:30
[機能] Webブラウザで表示したページのhtmlソースを取得する。 [ソース] Dim title As String title = webbrowser.DocumentTitle Dim bodyhtml As String bodyhtml = webbrowser.Document.Body.InnerHtml Dim allhtml As String Dim outbuff(webbrowser.DocumentStream.Length - 1) As Byte webbrowser.DocumentStream.Read(outbuff, 0, webbrowser.DocumentStream.Length) allhtml = System.Text.Encoding.GetEncoding(webbrowser.Document.Encoding).GetString(outbuff) 'allhtml = System.Text.Encoding.Get...
vb2008スクリプトメモ | 2010.02.08 Mon 00:06
[機能] テキストファイルに書き込む。(Shift-JISで) [ソース] Imports System.IO '---------------------------- Dim wc As StreamWriter Dim euc as System.Text.Encoding euc = System.Text.Encoding.GetEncoding("shift_jis") 'wc = New StreamWriter(outputfile, False, euc) wc = New StreamWriter(outputfile, True, euc) wc.WriteLine(hoge) wc.Write(hoge) wc.Close() wc = Nothing [メモ] Imports System.IOが必要。 System.Text.Encoding.GetEncoding("")を指定しないとUTF-8で書き出され...
vb2008スクリプトメモ | 2010.02.07 Sun 23:37
[機能] Webフォームへ入力してPOST処理を行う [ソース] Dim ec1 As HtmlElementCollection Dim ec2 As HtmlElementCollection Dim ec3 As HtmlElementCollection '画面の項目に値をセット '(Nameがある場合はGetElementsByname、Idがある場合はGetElementById) ec1 = WebBrowser1.Document.All.GetElementsByName("account") ec1(0).SetAttribute("VALUE", tempName) ec2 = WebBrowser1.Document.All.GetElementsByName("domainId") ec2(0).SetAttribute("VALUE", tempId) '画面のボタンクリック操作 '(実...
vb2008スクリプトメモ | 2010.02.07 Sun 19:48
全1000件中 991 - 1000 件表示 (100/100 ページ)