作成者 |
メッセージ |
|
|
IChar.sbp [ここをクリックすると内容が表示されます] [ここをクリックすると非表示にします]コード: #ifndef _SVN_INC_CHAR
#define _SVN_INC_CHAR
Declare Function CharNext Lib "user32" Alias "CharNextA" (ByVal lpsz As LPCSTR) As LPSTR
Declare Function CharNextExA Lib "user32" (ByVal CodePage As Word,ByVal lpCurrentChar As LPCSTR,ByVal dwFlags As DWord) As LPSTR
Declare Function CharPrev Lib "user32" Alias "CharPrevA" (ByVal lpszStart As LPCSTR,ByVal lpszCurrent As LPCSTR) As LPSTR
Declare Function CharPrevExA Lib "user32" (ByVal CodePage As Word,ByVal lpStart As LPCSTR,ByVal lpCurrentChar As LPCSTR,ByVal dwFlags As DWord) As LPSTR
Declare Function LoadString Lib "user32" Alias "LoadStringA" (ByVal hInstance As HINSTANCE,ByVal uID As DWord,ByVal lpBuffer As LPSTR,ByVal nBufferMax As Long) As Long
Declare Function lstrcpyn Lib "kernel32" Alias "lstrcpynA" (ByVal lpString1 As LPSTR,ByVal lpString2 As LPCSTR,ByVal iMaxLength As Long) As LPSTR
#endif
"IChar.sbp"っていうファイル名でいいのか疑問...。
ActiveBasic Ver.4以上かな?
ABで標準定義されていない文字列に対する関数が使えます。
[hide=IChar.sbp][code]#ifndef _SVN_INC_CHAR #define _SVN_INC_CHAR
Declare Function CharNext Lib "user32" Alias "CharNextA" (ByVal lpsz As LPCSTR) As LPSTR Declare Function CharNextExA Lib "user32" (ByVal CodePage As Word,ByVal lpCurrentChar As LPCSTR,ByVal dwFlags As DWord) As LPSTR
Declare Function CharPrev Lib "user32" Alias "CharPrevA" (ByVal lpszStart As LPCSTR,ByVal lpszCurrent As LPCSTR) As LPSTR Declare Function CharPrevExA Lib "user32" (ByVal CodePage As Word,ByVal lpStart As LPCSTR,ByVal lpCurrentChar As LPCSTR,ByVal dwFlags As DWord) As LPSTR
Declare Function LoadString Lib "user32" Alias "LoadStringA" (ByVal hInstance As HINSTANCE,ByVal uID As DWord,ByVal lpBuffer As LPSTR,ByVal nBufferMax As Long) As Long
Declare Function lstrcpyn Lib "kernel32" Alias "lstrcpynA" (ByVal lpString1 As LPSTR,ByVal lpString2 As LPCSTR,ByVal iMaxLength As Long) As LPSTR
#endif [/code][/hide]"IChar.sbp"っていうファイル名でいいのか疑問...。 ActiveBasic Ver.4以上かな?
ABで標準定義されていない文字列に対する関数が使えます。
|
|
|
投稿記事 |
Posted: 2006年6月18日(日) 11:11 |
|
|
|
|
|
標準ではlstrcpyは定義されていますが、lstrcpyn(cだとstrncpy)
がありません。
下記のように定義すれば使用できました。
DECLARE FUNCTION lstrcpyn Lib "kernel32" ALIAS "lstrcpynA"_
(I1TOSTR AS LPSTR,I2FRMSTR AS LPSTR,I3LEN AS Long) AS Long
標準ではlstrcpyは定義されていますが、lstrcpyn(cだとstrncpy) がありません。 下記のように定義すれば使用できました。
DECLARE FUNCTION lstrcpyn Lib "kernel32" ALIAS "lstrcpynA"_ (I1TOSTR AS LPSTR,I2FRMSTR AS LPSTR,I3LEN AS Long) AS Long
|
|
|
投稿記事 |
Posted: 2006年6月18日(日) 10:19 |
|
|
|
|
|
IDlgItem.sbp [ここをクリックすると内容が表示されます] [ここをクリックすると非表示にします]コード: #ifndef _SVN_INC_DLGITEM
#define _SVN_INC_DLGITEM
Declare Function SetDlgItemInt Lib "user32" (ByVal hDlg As HWND,ByVal nIDDlgItem As Long,ByVal uValue As DWord,ByVal bSigned As BOOL) As BOOL
Declare Function GetDlgItemInt Lib "user32" (ByVal hDlg As HWND,ByVal nIDDlgItem As Long,ByVal lpTranslated As *BOOL,ByVal bSigned As BOOL) As DWord
Declare Function CheckDlgButton Lib "user32" (ByVal hDlg As HWND,ByVal nIDButton As Long,ByVal uCheck As DWord) As BOOL
Declare Function CheckRadioButton Lib "user32" (ByVal hDlg As HWND,ByVal nIDFirstButton As Long,ByVal nIDLastButton As Long,ByVal nIDCheckButton As Long) As BOOL
Declare Function IsDlgButtonChecked Lib "user32" (ByVal hDlg As HWND,ByVal nIDButton As Long) As DWord
Declare Function GetNextDlgGroupItem Lib "user32" (ByVal hDlg As HWND,ByVal hCtl As HWND,ByVal bPrevious As BOOL) As HWND
Declare Function GetNextDlgTabItem Lib "user32" (ByVal hDlg As HWND,ByVal hCtl As HWND,ByVal bPrevious As BOOL) As HWND
Declare Function DlgDirList Lib "user32" Alias "DlgDirListA" (ByVal hDlg As HWND,ByVal lpPathSpec As LPSTR,ByVal nIDListBox As Long,ByVal nIDStaticPath As Long,ByVal uFileType As DWord) As Long
Declare Function DlgDirListComboBox Lib "user32" Alias "DlgDirListComboBoxA" (ByVal hDlg As HWND,ByVal lpPathSpec As LPSTR,ByVal nIDComboBox As Long,ByVal nIDStaticPath As Long,ByVal uFiletype As DWord) As Long
Declare Function DlgDirSelectComboBoxEx Lib "user32" Alias "DlgDirSelectComboBoxExA" (ByVal hDlg As HWND,ByVal lpString As LPSTR,ByVal nCount As Long,ByVal nIDComboBox As Long) As BOOL
Declare Function DlgDirSelectEx Lib "user32" Alias "DlgDirSelectExA" (ByVal hDlg As HWND,ByVal lpString As LPSTR,ByVal nCount As Long,ByVal nIDListBox As Long) As BOOL
Declare Function GetListBoxInfo Lib "user32" (ByVal hwnd As HWND) As DWord
Declare Function DefDlgProc Lib "user32" Alias "DefDlgProcA" (ByVal hDlg As HWND,ByVal Msg As DWord,ByVal wParam As WPARAM,ByVal lParam As LPARAM) As LRESULT
#endif ActiveBasic Ver.4以上かな?
ABで標準定義されていないコントロールに対する関数が使えます。
[hide=IDlgItem.sbp][code]#ifndef _SVN_INC_DLGITEM #define _SVN_INC_DLGITEM
Declare Function SetDlgItemInt Lib "user32" (ByVal hDlg As HWND,ByVal nIDDlgItem As Long,ByVal uValue As DWord,ByVal bSigned As BOOL) As BOOL Declare Function GetDlgItemInt Lib "user32" (ByVal hDlg As HWND,ByVal nIDDlgItem As Long,ByVal lpTranslated As *BOOL,ByVal bSigned As BOOL) As DWord
Declare Function CheckDlgButton Lib "user32" (ByVal hDlg As HWND,ByVal nIDButton As Long,ByVal uCheck As DWord) As BOOL Declare Function CheckRadioButton Lib "user32" (ByVal hDlg As HWND,ByVal nIDFirstButton As Long,ByVal nIDLastButton As Long,ByVal nIDCheckButton As Long) As BOOL Declare Function IsDlgButtonChecked Lib "user32" (ByVal hDlg As HWND,ByVal nIDButton As Long) As DWord
Declare Function GetNextDlgGroupItem Lib "user32" (ByVal hDlg As HWND,ByVal hCtl As HWND,ByVal bPrevious As BOOL) As HWND Declare Function GetNextDlgTabItem Lib "user32" (ByVal hDlg As HWND,ByVal hCtl As HWND,ByVal bPrevious As BOOL) As HWND
Declare Function DlgDirList Lib "user32" Alias "DlgDirListA" (ByVal hDlg As HWND,ByVal lpPathSpec As LPSTR,ByVal nIDListBox As Long,ByVal nIDStaticPath As Long,ByVal uFileType As DWord) As Long Declare Function DlgDirListComboBox Lib "user32" Alias "DlgDirListComboBoxA" (ByVal hDlg As HWND,ByVal lpPathSpec As LPSTR,ByVal nIDComboBox As Long,ByVal nIDStaticPath As Long,ByVal uFiletype As DWord) As Long
Declare Function DlgDirSelectComboBoxEx Lib "user32" Alias "DlgDirSelectComboBoxExA" (ByVal hDlg As HWND,ByVal lpString As LPSTR,ByVal nCount As Long,ByVal nIDComboBox As Long) As BOOL Declare Function DlgDirSelectEx Lib "user32" Alias "DlgDirSelectExA" (ByVal hDlg As HWND,ByVal lpString As LPSTR,ByVal nCount As Long,ByVal nIDListBox As Long) As BOOL
Declare Function GetListBoxInfo Lib "user32" (ByVal hwnd As HWND) As DWord
Declare Function DefDlgProc Lib "user32" Alias "DefDlgProcA" (ByVal hDlg As HWND,ByVal Msg As DWord,ByVal wParam As WPARAM,ByVal lParam As LPARAM) As LRESULT
#endif[/code][/hide]ActiveBasic Ver.4以上かな?
ABで標準定義されていないコントロールに対する関数が使えます。
|
|
|
投稿記事 |
Posted: 2006年6月12日(月) 18:16 |
|
|
|
|
|
IClipboard.sbp [ここをクリックすると内容が表示されます] [ここをクリックすると非表示にします]コード: #ifndef _SVN_INC_CLIPBOARD
#define _SVN_INC_CLIPBOARD
Declare Function ChangeClipboardChain Lib "user32" (ByVal hWndRemove As HWND,ByVal hWndNewNext As HWND) As BOOL
Declare Function SetClipboardViewer Lib "user32" (ByVal hWndNewViewer As HWND) As HWND
Declare Function GetClipboardViewer Lib "user32" () As HWND
Declare Function GetClipboardOwner Lib "user32" () As HWND
Declare Function GetOpenClipboardWindow Lib "user32" () As HWND
Declare Function GetPriorityClipboardFormat Lib "user32" (ByVal lpFormatList As *DWord,ByVal FormatNum As Long) As Long
Declare Function IsClipboardFormatAvailable Lib "user32" (ByVal uFormat As DWord) As BOOL
#endif ActiveBasic Ver.4以上かな?
ActiveBasicの Includeの中に svnみたいなフォルダを作ってその中に上のファイルを突っ込んどいて、 #include <svn\IClipboard.sbp>とするとABで標準定義されていないクリップボードの関数が使えます。
[hide=IClipboard.sbp][code]#ifndef _SVN_INC_CLIPBOARD #define _SVN_INC_CLIPBOARD
Declare Function ChangeClipboardChain Lib "user32" (ByVal hWndRemove As HWND,ByVal hWndNewNext As HWND) As BOOL
Declare Function SetClipboardViewer Lib "user32" (ByVal hWndNewViewer As HWND) As HWND Declare Function GetClipboardViewer Lib "user32" () As HWND
Declare Function GetClipboardOwner Lib "user32" () As HWND Declare Function GetOpenClipboardWindow Lib "user32" () As HWND
Declare Function GetPriorityClipboardFormat Lib "user32" (ByVal lpFormatList As *DWord,ByVal FormatNum As Long) As Long
Declare Function IsClipboardFormatAvailable Lib "user32" (ByVal uFormat As DWord) As BOOL
#endif[/code][/hide]ActiveBasic Ver.4以上かな?
ActiveBasicの[b]Include[/b]の中に[b]svn[/b]みたいなフォルダを作ってその中に上のファイルを突っ込んどいて、[b]#include <svn\IClipboard.sbp>[/b]とするとABで標準定義されていないクリップボードの関数が使えます。
|
|
|
投稿記事 |
Posted: 2006年6月12日(月) 17:20 |
|
|
|
|