ab.com コミュニティ https://www.activebasic.com/forum/ |
|
標準定義されていない関数群。 https://www.activebasic.com/forum/viewtopic.php?t=1146 |
ページ 1 / 1 |
作成者: | 7 [ 2006年6月12日(月) 17:20 ] |
記事の件名: | 標準定義されていない関数群。 |
IClipboard.sbp [ここをクリックすると内容が表示されます] ActiveBasic Ver.4以上かな?コード: #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のIncludeの中にsvnみたいなフォルダを作ってその中に上のファイルを突っ込んどいて、#include <svn\IClipboard.sbp>とするとABで標準定義されていないクリップボードの関数が使えます。 |
作成者: | 7 [ 2006年6月12日(月) 18:16 ] |
記事の件名: | |
IDlgItem.sbp [ここをクリックすると内容が表示されます] ActiveBasic Ver.4以上かな?コード: #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 ABで標準定義されていないコントロールに対する関数が使えます。 |
作成者: | たかせ [ 2006年6月18日(日) 10:19 ] |
記事の件名: | 標準定義されていない関数群 |
標準ではlstrcpyは定義されていますが、lstrcpyn(cだとstrncpy) がありません。 下記のように定義すれば使用できました。 DECLARE FUNCTION lstrcpyn Lib "kernel32" ALIAS "lstrcpynA"_ (I1TOSTR AS LPSTR,I2FRMSTR AS LPSTR,I3LEN AS Long) AS Long |
作成者: | 7 [ 2006年6月18日(日) 11:11 ] |
記事の件名: | |
IChar.sbp [ここをクリックすると内容が表示されます] "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 ActiveBasic Ver.4以上かな? ABで標準定義されていない文字列に対する関数が使えます。 |
ページ 1 / 1 | 全ての表示時間は UTC+09:00 です |
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/ |