某所に置いてあった（放置ともいう）Visual Basic 6での各種 Tipsをはてなに転載しておく。 VB6用のAPI使いまくりな今更感が漂いまくってるTipsです。動作確認してないのもあるかもしれない(^-^;)カテゴリに[ProgrammingTips]を追加した。 IMEの状態を設定す…

VisualBasic6用 ボタンのキャプションの配置(Align)を設定する ' ボタンの文字の配置(Align)を設定する ' *** この内容を標準モジュールに作成してください *** ' objCommandButton : ボタンオブジェクト ' ButtonStyle : ボタンのキャプションの配置 ' bsLe…

VisualBasic6用 イベントログの出力 ' コマンドボタン(Command1) を配置して下ださい。 ' NT系ではイベント ログのアプリケーションログにイベントを記録します。 ' Win9Xでは WSH.log にイベントを記録します。 ' (WSH.logは、ユーザーの Windows ディレク…

VisualBasic6用 ショートカットの作成 ' コマンドボタン(Command1) を配置して下ださい。 ' 実行モジュール(exe)を作成後、exeを実行してください。 ' ボタンを押すと、自分自身のショートカットをデスクトップに作成します。 Option Explicit Private Sub C…

VisualBasic6用 フォームのシステムメニューを削除する Option Explicit 'フォームに、チェックボックス(Check1)をコントロール配列として5個(1〜5)と 'コマンドボタン(Command1)を1個配置してください。 Private Declare Function GetSystemMenu Lib "user3…

VisualBasic6用 フォームをフラッシュさせる ' フォームをフラッシュさせる ' hwnd : フラッシュさせるウィンドウのウィンドウハンドル ' bInvert : 1 - 点滅状態のオン／オフ(トグル) ' 0 - 元の状態に戻す Public Declare Function FlashWindow Lib "user3…

VisualBasic6用 PowerPoint2000/VBA PPTを画像ファイルに変換する ' PowerPoint2000/VBA PPTを画像ファイルに変換する ' (以下では png 形式に変換しています) ' strSaveFolder : 変換後のファイルを保存するフォルダー ' (ファイル名は、自動で付加される) …

VisualBasic6用 TextBox/RichTextBoxのワードラップを無効にする Const EM_SETWORDBREAKPROC = &HD0& Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" _ (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVa…

VisualBasic6用 TextBox/RichTextBoxの指定行の先頭文字の位置を取得 Const EM_GETLINECOUNT = &HBA Private Const EM_LINEINDEX = &HBB Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hWnd As Long, ByVal wMsg As Long, ByVal…

VisualBasic6用 TextBox/RichTextBoxの行数を取得 Const EM_GETLINECOUNT = &HBA Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long ' TextBox/Ri…

VisualBasic6用 TextBox/RichTextBoxのキャレットのある行を取得 Const EM_LINEFROMCHAR = &HC9 Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Lon…

VisualBasic6用 フォルダー選択ダイアログを表示 ' フォルダー選択ダイアログを表示 ' *** この内容を標準モジュールに作成してください *** ' strTitle : ダイアログのタイトル ' lngOwnerHwnd: 親ウィンドウのウィンドウハンドル ' lngRoot : ルートフォル…

VisualBasic6用 常に手前に表示を設定／解除する Private Type RECT left As Long 'WindowのX座標 top As Long 'WindowのY座標 right As Long 'Windowの右端の座標 bottom As Long 'Windowの底にあたる部分の座標 End Type Const HWND_TOP = 0 '手前にｾｯﾄ Co…

VisualBasic6用 IMEの状態を設定する(IME On/Off) Declare Function ImmSetOpenStatus Lib "imm32.dll" (ByVal himc As Long, ByVal b As Long) As Long Declare Function ImmGetContext Lib "imm32.dll" (ByVal hWnd As Long) As Long Declare Function Imm…

φ(．．)メモメモ VB.NET(Windows Apploication)から起動済みのIEのObjectを取得し、Javascriptを実行するサンプル。 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim…

Office 2007のUIを2003のUIで使用可能にするアドインが公開された。 φ(．．)メモメモ前に紹介したOffice 2007のインターフェイスを2003に戻すソフト「Back to 2003」は市販ソフトウェアだったが今回はフリーソフト。「Back to 2003」との違いは、２００７の…