- 【QBASIC互換!?】FreeBasic【GPL】
770 ：デフォルトの名無しさん[]：2016/10/04(火) 21:12:01.77 ID:TnvyzfSK - >>758 Enable 関係の処理に成功。
Dim As BOOLEAN Abool, Bbool
Dim hBtn As HWND
Dim Long As IAA 既に宣言済み
hBtn=GetDlgItem(TakaHWND, IDC_BTN2): '個別表示物のハンドル(枠番号)を取得
'declare function EnableWindow(byval hWnd as HWND, byval bEnable as WINBOOL) as WINBOOL
'declare function IsWindowEnabled(byval hWnd as HWND) as WINBOOL
IAA = IsWindowEnabled(hBtn) : 'Ibool ={0;無効, (その他);有効}
If (IAA=0) Then
MSReturnCode = EnableWindow( hBtn, TRUE): 'ABool = {TRUE;有効, FALSE;無効}
Else
MSReturnCode = EnableWindow( hBtn, FALSE): 'ABool = {TRUE;有効, FALSE;無効}
End If
| - 【QBASIC互換!?】FreeBasic【GPL】
771 ：デフォルトの名無しさん[]：2016/10/04(火) 21:28:37.54 ID:TnvyzfSK - >>769
>>751 の
'declare sub _beep (byval as ulong, byval as ulong)
で Call型 さぷるーちん。
_Beep(2000&, 300&)
のように、C:\tool\FreeBASIC\inc 内の *.bi に記載されている無限にも見える declare 文で定義されている名称は、予約語と言える。
http://makoto-watanabe.main.jp/freebasic/CatPgFullIndex.html
に記載されていない語の予約語もあることを記載してほしい。
「BEEP」は記載されているが、「_Beep」は記載されていない。
Unix 等では、「_Beep」は予約語にならないと思われるが
#include で読み込まれる一連の *.BIファイルにて宣言されている語は予約語になりうると。
OS の違いからすべてを網羅するのは不可能だろうから、見つけ方だけでも記載してほしい。
| - 【QBASIC互換!?】FreeBasic【GPL】
772 ：デフォルトの名無しさん[]：2016/10/04(火) 21:45:36.14 ID:TnvyzfSK - *.rc ファイルの編集画面で、左側に並んでいる小物を全部並べてみた。
CONTROL "EditText",IDC_EDT1,"Edit",0x50010000,3,3,29,15,0x00000200
CONTROL "IDC_STC",IDC_STC1,"Static",0x50000000,42,3,36,15
CONTROL "IDC_GRP",IDC_GRP1,"Button",0x50000007,81,3,42,12
CONTROL "IDC_BTN",IDC_BTN1,"Button",0x50010000,132,3,27,12
CONTROL "IDC_CHK",IDC_CHK1,"Button",0x50010003,168,3,24,12
CONTROL "IDC_RBN",IDC_RBN1,"Button",0x50010009,6,24,30,12
CONTROL "",IDC_CBO1,"ComboBox",0x50010003,48,24,30,15
CONTROL "",IDC_LST1,"ListBox",0x50010141,90,24,24,15,0x00000200
CONTROL "",IDC_SCB1,"ScrollBar",0x50000000,129,24,24,15
CONTROL "",IDC_SCB2,"ScrollBar",0x50000001,171,21,21,21
CONTROL "",IDC_TAB1,"SysTabControl32",0x50018000,9,42,27,15
CONTROL "",IDC_PGB1,"msctls_progress32",0x50000000,54,45,24,12
CONTROL "",IDC_TRV1,"SysTreeView32",0x50010007,87,45,30,15,0x00000200
CONTROL "",IDC_LSV1,"SysListView32",0x50010003,135,42,21,12,0x00000200
CONTROL "",IDC_TRB1,"msctls_trackbar32",0x50000000,168,45,24,15
| - 【QBASIC互換!?】FreeBasic【GPL】
773 ：デフォルトの名無しさん[]：2016/10/04(火) 21:46:00.41 ID:TnvyzfSK - CONTROL "",IDC_UDN1,"msctls_updown32",0x50000000,3,60,36,15
CONTROL "",IDC_IMG1,"Static",0x50000203,30,63,33,12
CONTROL "",IDC_TBR1,"ToolbarWindow32",0x50000001,78,66,39,12
CONTROL "IDC_SBR",IDC_SBR1,"msctls_statusbar32",0x50000003,84,66,21,12
CONTROL "",IDC_IMG2,"Static",0x50000203,84,66,30,15
CONTROL "",IDC_DTP1,"SysDateTimePick32",0x50010004,117,63,54,15
CONTROL "IDC_RED",IDC_RED1,"RichEdit20A",0x50010000,9,84,30,21,0x00000200
CONTROL "IDC_UDC",IDC_UDC1,"UDCCLASS",0x50000000,57,87,27,18
CONTROL "",IDC_CBE1,"ComboBoxEx32",0x50010003,96,87,24,15
CONTROL "",IDC_SHP1,"Static",0x50000004,138,84,30,15
CONTROL "",IDC_IPA1,"SysIPAddress32",0x50010000,12,108,27,18
CONTROL "",IDC_ANI1,"SysAnimate32",0x50000000,51,111,39,12
CONTROL "",IDC_HOT1,"msctls_hotkey32",0x50010000,102,108,27,15
CONTROL "",IDC_PGR1,"SysPager",0x50000001,138,108,24,15
CONTROL "",IDC_PGR2,"SysPager",0x50000000,180,66,9,21
CONTROL "",IDC_REB1,"ReBarWindow32",0x50000000,177,99,12,15
CONTROL "",IDC_HDR1,"SysHeader32",0x50000002,150,108,33,15
HScroll, VScroll の自動で作られる表題 IDC_SCB で一致。
HPager VPagerの自動で作られる表題 IDC_PGR で一致。
各行の４列目に書かれている文字が、GroupBox、Button、RadioButton、CheckBox で一致。
五列目の数値についても、0x50000000 が８種類で一致してくれている。
これの解明はキビシー。
スクロールにヘルプなどはいらないと思うので、初期値の名称を自前で変更しなければ、それなりの自己書き換えルーチンを作成できるような、気分になってきた。
|
|