iandeth. - VB6 - 連想配列の使い方
iandeth. Perl, Flash ActionScript, MySQL, Movable Type, システム開発 - そんなテーマのサイトdeth. 解決策 Dictionary オブジェクトを使うべし 同オブジェクトのVBヘルプを見ても、そこには「Dictionary オブジェクトは、PERL の関連配列と同等です」と書かれているように、思いっきり連想配列として使って欲しそうなオブジェクトです。「PERLの関連配列」って微妙な和訳ですけど... Dictionaryの使い方 変数宣言＆項目追加 Dim h as Object Set h = CreateObject("Scripting.Dictionary") '項目追加の基本形 h.Add "key1","val1" h.Add "key2","val2" h.Add "key3","val3" 'Perlライクな書き方
画像やテキストファイルを実行ファイルに埋め込む - .NET Tips (VB.NET,C#...)
注意：ここで紹介する方法は、主にVisual Studio 2003以前で使用される方法です。Visual Studio 2005以降でもこの方法は可能ですが、「Visual Studioでリソースを管理する」で紹介している方法を使ったほうがよいでしょう。 ここでは、画像やテキストファイルなどのリソースをプロジェクトに追加して、ビルドした時に作成されるアセンブリファイルに埋め込まれるようにする方法を紹介します。なおここで紹介している方法はマネージリソースを埋め込む方法であり、Win32リソースを埋め込む方法は「Win32リソースを実行ファイルに埋め込む」で紹介しています。 リソースを埋め込むVisual Studioの場合、ソリューションエクスプローラでプロジェクトを右クリックして表示されるメニューの「追加」-「既存項目の追加」（または「新しい項目の追加」）から埋め込みたい項目を追加し、プ
Excel のタスクを正常に終了できない現象 - VBレスキュー(花ちゃん) Visual Basic,VS6.0,VB6.0,サンプル,Tips
VBからExcelを使用すると誰でも最初に出会う現象で掲示板での質問も絶えません。従って、 ここに今まで判明（私が知った）した現象について書いておきます。 通常の起動・終了処理 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet ' 変数にオブジェクトの参照を代入します。Add メソッドを使って ' 新規 workbookとworksheet オブジェクトを作成します。 Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets(1) 作業内容 Set xlSheet = Nothing xlBook.
VB エクセル操作
【サンプルリスト その１】 '============================================================================================ ' 指定したEXCELファイルを開いて、指定シートのA1セルにHELLOをセットしてファイルを保存して終了する。 '============================================================================================ Private Sub Sample() Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet '--------------------
改行、タブ文字などの定数
VB.NETの場合改行、タブ文字などの定数は、VB6と同様に、vbCrLf、vbTabなどが使えます。さらにControlCharsモジュールのメンバとしても登録されています。 Dim s As String 'キャリッジリターン文字とラインフィード文字 s = vbCrLf s = ControlChars.CrLf 'キャリッジリターン文字 s = vbCr s = ControlChars.Cr 'ラインフィード文字 s = vbLf s = ControlChars.Lf '改行文字（WindowsではvbCrLfと同じ） s = vbNewLine s = ControlChars.NewLine '値0を持つ文字 s = vbNullChar s = ControlChars.NullChar 'タブ文字 s = vbTab s = ControlChars.Tab 'バックス
アプリケーションの設定を保存する
アプリケーションの設定を保存するVisual Studio 2005以降で、アプリケーション設定機能を使用する2005以降のVisual Studioを使っていれば、アプリケーションの設定の保存、復元が驚くほど簡単です。その方法は、「Visual Studioでアプリケーションの設定を保存する」で説明します。 Visual Studioを使っていなくても、.NET Framework 2.0からは、ApplicationSettingsBaseクラスを使って簡単に行うことができます。この方法は「ApplicationSettingsBaseクラスを使って設定を保存する」で説明します。 アプリケーションの設定を保存、復元するためのクラスを自作するアプリケーション終了時に設定を保存しておき、次の起動時に設定を読み込むといった処理を行うためには、設定の情報をファイルに書き込むか、レジストリに書き
写真ってblog: VB6.0で正規表現を使う
rubyなど，スクリプト言語を使っているとテキスト処理が多いためか，正規表現のありがたみを感じることが多い。ところが仕事で開発に使っているVB6.0ではヘルプを読んでも正規表現が使えるとは書いてない。 csvファイルを読み込んで内容をチェックしたりするプログラムを書こうとすると，「ここで正規表現が使えれば...」と感じる場面が多くあった。不便だと感じつつも，If〜Thenを繰り返したり，LenだとかMidを駆使して機械的な比較をしたりしていたものだ。 ところがふと，「VB 正規表現」で検索してみたら，下記のようなページを見つけた。 Clinick's Clinic on Scripting: 正規表現による Visual Basic Scripting Edition (VBScript) の機能強化 これはVBScriptで正規表現が使えることを書いてあるページだが，下の方に， Visu
エンタープライズ： 「Windows 2000 - Development Guide for Business Applications」
この特集のトップページへ ＞ Chapter 7：プレゼンテーション層の構築 7.4.8 用紙のサイズとプリンタの機種の変更 以上で帳票を印刷することはできるようになったわけだが，このままの状態では，ユーザーが［通常使うプリンタ］に設定しているプリンタ，そして，それに設定されている用紙サイズにしか出力できない。なぜなら，帳票出力に使ったPrinterオブジェクトは，アプリケーションが起動した状態では［通常使うプリンタ］しか示さないためである。 そこで，［通常使うプリンタ］以外のプリンタに出力できるようにしたり，用紙サイズを変更したりするには，Printerオブジェクトの切り替えが必要となる。以下，その方法について説明する。 ●通常使うプリンタを変更する方法 まず初めに断わっておくと，Visual Basicにおいてはプリンタを切り替える完璧な方法は用意されていない。唯一用意されているのは，
フォルダの選択ダイアログを表示する
フォルダの選択ダイアログを表示する下図のような「フォルダの選択」ダイアログを表示する方法を紹介します。 .NET Framework 1.1以降.NET Framework 1.1以降ではFolderBrowserDialogクラスを使用して表示します。まずはこの方法から説明します。 次の例ではルートフォルダをデスクトップ、始めに選択されているフォルダを"C:\Windows"として「フォルダの選択」ダイアログを表示しています。また、ユーザーが新しいフォルダを作成できるように「新しいフォルダ」ボタンが表示されるようにしています。 'FolderBrowserDialogクラスのインスタンスを作成 Dim fbd As New FolderBrowserDialog '上部に表示する説明テキストを指定する fbd.Description = "フォルダを指定してください。" 'ルートフォルダ
「ファイルを開く」ダイアログボックスを表示する .NET Tips C#, VB.NET, Visual Studio
「ファイルを開く」ダイアログボックスを表示するOpenFileDialogクラスを使うことにより、「ファイルを開く」ダイアログボックスを表示させることができます。 OpenFileDialogクラスの簡単な使い方を以下に示します。（ここでは説明のために、ShowDialogメソッドを呼び出す前にいろいろなプロパティを設定していますが、デフォルトでよい場合は必要ありません。） 'OpenFileDialogクラスのインスタンスを作成 Dim ofd As New OpenFileDialog() 'はじめのファイル名を指定する 'はじめに「ファイル名」で表示される文字列を指定する ofd.FileName = "default.html" 'はじめに表示されるフォルダを指定する '指定しない（空の文字列）の時は、現在のディレクトリが表示される ofd.InitialDirectory = "
)
ファイルへのテキストの書き込み
テキスト ファイルにテキストを書き込む単純な方法を次のコード例に示します。 Imports System Imports System.IO Class Test Public Shared Sub Main() ' Create an instance of StreamWriter to write text to a file. Dim sw As StreamWriter = New StreamWriter("TestFile.txt") ' Add some text to the file. sw.Write("This is the ") sw.WriteLine("header for the file.") sw.WriteLine("-------------------") ' Arbitrary objects can also be written to the
アプリケーションの開始時または終了時に行う処理を記述する
アプリケーションの開始時または終了時に行う処理を記述するここでは、アプリケーション（Windowsフォームアプリケーション）が開始した直後、または終了する直前に何かしたい場合、そのコードをどこに書けばよいかについて説明します。 なおここで紹介する方法は、メインフォームが作成される前、あるいは破棄された後に何か行いたい場合に役に立つ方法です。もしメインフォームがロードされた直後、あるいは閉じられた直後でよいのであれば、LoadイベントやFormClosedイベントを使用する方法で十分です。 エントリポイントメソッドに記述する方法アプリケーションが開始すると、まずエントリポイントメソッド（Mainメソッド）が呼び出されます。そして、エントリポイントメソッドから抜けるとアプリケーションが終了します。つまり、アプリケーションの開始時に行う処理はエントリポイントメソッドの先頭に記述し、アプリケーショ
DataGridViewで選択されている列、行、セルを取得する、または列、行、セルを選択する
注意：DataGridViewコントロールは、.NET Framework 2.0で新しく追加されました。 選択されている列、行、セルを取得するDataGridViewで選択されている列、行、セルを取得するには、DataGridViewオブジェクトのSelectedColumns、SelectedRows、SelectedCellsプロパティを使用します。 なお、SelectionModeプロパティにより、行や列が選択できるか否かを指定できます。SelectionModeプロパティについて詳しくは、こちらで説明しています。 '選択されているセルを表示 Console.WriteLine("選択されているセル") For Each c As DataGridViewCell In DataGridView1.SelectedCells Console.WriteLine("{0}, {1}"
起動時のコマンドライン引数を取得する
起動時のコマンドライン引数を取得するここでは、アプリケーションを起動した時に指定されたコマンドライン引数を取得する方法について説明します。 なお「コマンドライン引数」とは、例えばアプリケーションの実行ファイルのパスが「C:\MyApp\app.exe」で、「C:\MyApp\app.exe /a /b /c」というコマンドラインを実行した時、「/a /b /c」がコマンドライン引数です。 Environment.CommandLine、GetCommandLineArgsを使用する方法アプリケーション起動時のコマンドライン引数をそのまま取得するには、Environment.CommandLineプロパティを使います。また、コマンドライン引数を半角スペースで分割した配列で取得するには、Environment.GetCommandLineArgsメソッドを使います。 CommandLineプロ
他のEXEのハンドルを取得しVBから終了する - VBレスキュー(花ちゃん) Visual Basic,VS6.0,VB6.0,サンプル,Tips
フォームの General Declarations セクションに記入 Option Explicit 'SampleNo=073 WindowsXP VB6.0(SP5) 2002.05.16 'クラス名又はキャプションタイトルを与えて 'ウィンドウのハンドルを取得する（P81) Private Declare Function FindWindow Lib "user32" _ Alias "FindWindowA" (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long '指定のウィンドウにメッセージを送る（P750) Private Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" (ByVal hwnd As Lo
Vbで通常使用するプリンターを変更するには - OKWAVE
アプリ側から通常使用するプリンターを変更する前 Printerオブジェクトよりデフォルトのデバイス名を 事前取得する。 出力後に、Printersオブジェクト中のデバイス名 照合してSetWindowsDefaultPrinter で元に戻す。 Dim defDeviceName As String 'デフォルトデバイス名を事前取得する defDeviceName = Printer.DeviceName Dim oPrinter As Printer 'プリンターデバイス名を照合する For Each oPrinter In Printers If oPrinter.DeviceName = defDeviceName Then SetWindowsDefaultPrinter oPrinter.DeviceName, oPrinter.DriverName, oPrinter.Port
VB.NETからAdobe ReaderでPDFファイルを印刷する。 - Windows Script Programming
.NETなら、こんなに簡単です。 Adobe Reader 7.0 ～ 8.1 最初にダミーのアプリを起こして、最後に終了させます。 PdfPrint.VB Imports System Imports System.Diagnostics Public Class PdfPrint Public Shared Function Main(ByVal Arguments() As String) As Integer Dim Process1 As Process=Process.Start("acrord32.exe","/n /h") Process1.WaitForInputIdle() Dim File As String For Each File In Arguments Dim Process2 As Process=Process.Start("acrord32.exe",
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
サービス終了のお知らせ
Loading...
WMI Fun !!