TEXTBOX の表示を大文字のみにする

'
' Win32 API 定義等
'
Public Const GWL_STYLE = (-16)

Public Const ES_LOWERCASE = &H10&
Public Const ES_NUMBER = &H2000&
Public Const ES_UPPERCASE = &H8&

Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long


'
' フォーム初期化
'
Private Sub Form_Load()
Dim iStyle As Long

' TextBox に ES_UPPERCASE の付与
iStyle = GetWindowLong(txtKey1.hWnd, GWL_STYLE)
iStyle = iStyle Or ES_UPPERCASE
SetWindowLong txtKey1.hWnd, GWL_STYLE, iStyle

End Sub

働くの反対語

「働く」の反対語
「休む」日本人
「遊ぶ」欧州人

TabCtrlにフィットさせる

 CTabCtrl* pTab = (CTabCtrl*)GetDlgItem(IDC_TAB);
 i = 0;
 pTab->InsertItem(i++, "Tab-01");  // No.0
 pTab->InsertItem(i++, "Tab-02");  // No.1
 pTab->InsertItem(i++, "Tab-03");  // No.2
 pTab->InsertItem(i++, "Tab-04");  // No.3

 pTab->GetWindowRect(&rtTab);
 ScreenToClient(&rtTab);
 pTab->AdjustRect(FALSE, rtTab);

 m_wndChild.SetWindowPos(NULL, rtTab.left, rtTab.top, rtTab.Width(), rtTab.Height(), SWP_NOZORDER);
 m_wndChild.ShowWindow(SW_SHOW);

タブを含む検索

タブ（水平タブ）はASCIIコードの9番なので

SELECT *

FROM テーブル名

WHERE フィールド名 LIKE "%" + CHAR(9) + "%"

PaintDesktopVersion

HKEY_CURRENT_USER→Control Panel→Desktop

「Desktop」を選択した際に右のペインに表示される「PaintDesktopVersion」
をダブルクリックして、「値のデータ」に半角数値で「1」を入力して「OK」
ボタンをクリックする。