Visual Basic

[Windows Mobile][VB]Tips: Cookieを使った認証の必要なサイトへのアクセス

CH3COOH(酢酸) — Thu, 26 Mar 2009 00:08:00 GMT

本記事は、「.NET Compact FrameworkでCookieを使った認証の必要なサイトへのアクセスする」へ転記しました。

[WindowsMobile][VB]パフォーマンスのチェックをしてみた

CH3COOH(酢酸) — Tue, 27 Jan 2009 23:31:00 GMT

とある処理をWindows Mobileで調べようと思って、
処理後の時間-処理前の時間でかかった時間を求めようと、
下記のコードを書いてみました。

Public Class QueryPerformance

    <DllImport("kernel32.dll")> _
    Private Shared Function QueryPerformanceCounter(ByRef value As Long) As Short
    End Function

    <DllImport("kernel32.dll")> _
    Private Shared Function QueryPerformanceFrequency(ByRef value As Long) As Short
    End Function

    Public Shared Function GetTime() As Double

        Dim counter As Long = 0
        Dim frequency As Long = 0

        ' 高分解能パフォーマンスカウンタが存在する場合、
        ' そのカウンタの現在の値を取得します。
        QueryPerformanceCounter(counter)

        ' 高分解能パフォーマンスカウンタが存在する場合、
        ' そのカウンタの周波数（更新頻度）を取得します。
        ' システムが動作している間は、周波数を変更できません。
        QueryPerformanceFrequency(frequency)

        Return counter / frequency
    End Function
End Class

実行するとkernel32.dllが無いと例外が発生してしまいました。
結局、System.Environment.TickCountを使うことにしました。

……ん？前も同じような事で悩んだ記憶が……

[日常][C/C++][VB]VBでこんな書き方出来るの？

CH3COOH(酢酸) — Wed, 14 Jan 2009 01:27:00 GMT

お仕事中の雑談でのお話です。
Twitterでもこんな事出来るの？って相談していた件ですｗ

先輩「C言語ってこんな感じで、ループを使って(memsetを使ってもいいんだけど)
最終的にstr1とstr2は”cccc”を指すような書き方出来るやん？」

 char str1[] = "aaaa";
 char str2[] = "bbbb";

 char** array[] = {&str1, &str2};
 for (int i=0; i<2; i++)
 {
  *array[i] = "cccc";
 }

 printf("%s", str1);  // "cccc"が表示される事を期待
 printf("%s", str2);  // "cccc"が表示される事を期待

先輩「↑みたいなイメージでVBでもコード書けるん？」

 Dim str1 As String = "aaaa"
 Dim str2 As String = "bbbb"

 Dim array() As XXXXX = {str1, str2}
 For i As Integer = 0 to array.Length - 1
  ' なんらかしらの処理
  array(i) = "cccc"
 Next i

 Console.WriteLine(str1) ' "cccc"が表示される事を期待
 Console.WriteLine(str2) ' "cccc"が表示される事を期待

僕「出来ると思いますけど・・・・うーん？」

……ってな感じで、
配列に変数を突っ込んでその変数を配列から取り出すことなく
目的の"ccccc"を表示出来るのかなぁ……と悶々としてましたｗｗ

やっぱりTwitterだとイメージを伝えにくいですね。

[Excel][Web][VB]Excel VBAからXML WebService(SOAP)を利用してみたその２

CH3COOH(酢酸) — Wed, 07 Jan 2009 00:17:00 GMT

本記事は、「Excel VBAでXML WebService(SOAP)を利用するその2」へ転記しました。

[Excel][Web][VB]Excel VBAからXML WebService(SOAP)を利用してみた

CH3COOH(酢酸) — Mon, 05 Jan 2009 20:39:00 GMT

本記事は、「Excel VBAでXML WebService(SOAP)を利用するその1」へ転記しました。

[VB]DataRowの変更前と変更後のデータの比較

CH3COOH(酢酸) — Fri, 19 Dec 2008 19:15:00 GMT

10万と3千本のソースコードをリファクタリング中です。嘘です。

変更前と変更後の2つのDataTableを使っている処理を見付けました。
どうやらDataRowの変更前と変更後とでデータの比較がしたい様だったので
サンプルコードをでっちあげて「こんな方法もありますよー」と提案したりとか。

        ' テーブルの作成
        Dim col As New DataColumn("col", GetType(String))
        Dim table As New DataTable("table")
        table.Columns.Add(col)

        ' 行「ほげほげ」をテーブルへの追加
        Dim oldRow As DataRow = table.NewRow()
        oldRow("col") = "ほげほげ"
        table.Rows.Add(oldRow)

        ' テーブルに対する変更(「ほげほげ」追加)の確定
        table.AcceptChanges()

        ' 行「ほげほげ」に対して「ぴよぴよ」を上書き
        Dim newRow As DataRow = table.Rows(0)
        newRow("col") = "ぴよぴよ"

        ' 変更があったかどうか確認する
        For Each row As DataRow In table.Rows
            Select Case row.RowState
                Case DataRowState.Modified
                    ' 行に対して変更があった場合

                    ' 変更後の値　「ぴよぴよ」
                    Dim currentString As String
                    currentString = row("col", DataRowVersion.Current)

                    ' 変更前の値　「ほげほげ」
                    Dim originalString As String
                    originalString = row("col", DataRowVersion.Original)

     ' TODO:ここでデータの比較を行う

            End Select
        Next row

        ' やっぱりテーブルに対する変更を取り消します
        ' Rows(0)が「ぴよぴよ」→「ほげほげ」
        table.RejectChanges()

[VB]オブジェクトをコマンドライン引数として渡してみた

CH3COOH(酢酸) — Fri, 05 Dec 2008 07:00:00 GMT

本記事は「[VB.NETを使ってオブジェクトをコマンドライン引数として渡す](http://ch3cooh.jp/other/serialize-object-using-vbnet/)」に転記いたしました。

[VB][Excel][COM]何回やってもExcelプロセスが倒せない

CH3COOH — Sat, 01 Nov 2008 08:19:00 GMT

[Excelのシートを画像にする処理]を作っていたのですが、
Excelのプロセスが殺せないという、よくあるネタでハマってしまいました。

下記のコードをVS2003とVS2005で試すと、
VS2005ではExcelプロセスが消えますが、VS2003では残ったままになっています。

    Private Sub ExcelDeNanikasuru()

        Dim app As Excel.Application = Nothing
        Dim books As Excel.Workbooks = Nothing
        Dim book As Excel.Workbook = Nothing
        Dim sheets As Excel.Sheets = Nothing
        Try
            app = New Excel.Application
            books = app.Workbooks
            book = books.Open("c:\input.xls")

            ' ↓VS2003でもこの処理が無ければプロセスは死ぬ
            sheets = book.Worksheets

        Finally

            book.Close()
            books.Close()
            app.Quit()

            sheets = Nothing
            book = Nothing
            books = Nothing
            app = Nothing

            System.GC.Collect()

        End Try
    End Sub

.NET2.0になってGC.Collect()の処理が変わったのかな？

[VB][Excel][COM]Tips：プリンタドライバを利用してExcelのシートをTiff画像でファイル出力する方法

CH3COOH(酢酸) — Sat, 01 Nov 2008 08:11:00 GMT

本記事は、「Excel VBAでプリンタドライバを利用してシートをtiff画像としてファイル出力する | SOFTBUILD」へ転記しました。

[WindowsMobile][VB]Tips: Wikipediaの特別:RandomPageのリダイレクト先のURLを取得する方法

CH3COOH(酢酸) — Sun, 19 Oct 2008 03:21:00 GMT

本記事は、「Windows Mobileで「Wikipediaの特別:RandomPageのリダイレクト先」のURLを取得する」へ転記しました。