#define CLSID_TaskbarList "{56FDF344-FD6D-11d0-958A-006097C9A090}"
#define IID_ITaskbarList3 "{ea1afb91-9e28-4b86-90e9-9e9f8a5eefaf}"
#include "user32.as"
#usecom ITaskbarList3 IID_ITaskbarList3 CLSID_TaskbarList
#comfunc ITaskbarList3_SetProgressValue 9 int,double,double
#comfunc ITaskbarList3_SetProgressState 10 int,int
#comfunc ITaskbarList3_ThumbBarAddButtons 15 int,int,int
#comfunc ITaskbarList3_SetOverlayIcon 18 int,int,wstr
#define THB_BITMAP 0x00000001
#define THB_ICON 0x00000002
#define THB_TOOLTIP 0x00000004
#define THB_FLAGS 0x00000008
#define THBN_CLICKED 0x1800
#define TBPF_NOPROGRESS 0x00000000
#define TBPF_INDETERMINATE 0x00000001
#define TBPF_NORMAL 0x00000002
#define TBPF_ERROR 0x00000004
#define TBPF_PAUSED 0x00000008
screen 0,400,80
pos 10,10:font "meiryo",16
mes "HSPでタスクバープログラミング！"
newcom iTask3, ITaskbarList3
onexit *e
stop
*e
delcom iTask3
end
#define CLSID_TaskbarList "{56FDF344-FD6D-11d0-958A-006097C9A090}"
#define IID_ITaskbarList3 "{ea1afb91-9e28-4b86-90e9-9e9f8a5eefaf}"
#include "user32.as"
#usecom ITaskbarList3 IID_ITaskbarList3 CLSID_TaskbarList
#comfunc ITaskbarList3_SetProgressValue 9 int,double,double
#comfunc ITaskbarList3_SetProgressState 10 int,int
#comfunc ITaskbarList3_ThumbBarAddButtons 15 int,int,int
#comfunc ITaskbarList3_SetOverlayIcon 18 int,int,wstr
#define THB_BITMAP 0x00000001
#define THB_ICON 0x00000002
#define THB_TOOLTIP 0x00000004
#define THB_FLAGS 0x00000008
#define THBN_CLICKED 0x1800
#define TBPF_NOPROGRESS 0x00000000
#define TBPF_INDETERMINATE 0x00000001
#define TBPF_NORMAL 0x00000002
#define TBPF_ERROR 0x00000004
#define TBPF_PAUSED 0x00000008
screen 0,400,80
pos 10,10:font "meiryo",16
mes "HSPでタスクバープログラミング！"
newcom iTask3, ITaskbarList3
;----アイコンハンドルの取得
LoadImage 0,32513,1,16,16,0x8000
hIco=stat
;----オーバーレイアイコン
ITaskbarList3_SetOverlayIcon iTask3,hwnd,hIco,""
onexit *e
stop
*e
delcom iTask3
DestroyIcon hIco
end
#define CLSID_TaskbarList "{56FDF344-FD6D-11d0-958A-006097C9A090}"
#define IID_ITaskbarList3 "{ea1afb91-9e28-4b86-90e9-9e9f8a5eefaf}"
#include "user32.as"
#usecom ITaskbarList3 IID_ITaskbarList3 CLSID_TaskbarList
#comfunc ITaskbarList3_SetProgressValue 9 int,double,double
#comfunc ITaskbarList3_SetProgressState 10 int,int
#comfunc ITaskbarList3_ThumbBarAddButtons 15 int,int,int
#comfunc ITaskbarList3_SetOverlayIcon 18 int,int,wstr
#define THB_BITMAP 0x00000001
#define THB_ICON 0x00000002
#define THB_TOOLTIP 0x00000004
#define THB_FLAGS 0x00000008
#define THBN_CLICKED 0x1800
#define TBPF_NOPROGRESS 0x00000000
#define TBPF_INDETERMINATE 0x00000001
#define TBPF_NORMAL 0x00000002
#define TBPF_ERROR 0x00000004
#define TBPF_PAUSED 0x00000008
screen 0,400,80
pos 10,10:font "meiryo",16
mes "HSPでタスクバープログラミング！"
newcom iTask3, ITaskbarList3
onexit *e
ddim c,1 ;現在位置
ddim m,1 ;最大値
lpoke m,0,100 ;直接書き込む
repeat 100
lpoke c,0,cnt
ITaskbarList3_SetProgressValue iTask3,hwnd,c,m
title ""+lpeek(c,0)+"%"
wait 10
loop
lpoke c,0,lpeek(m,0)
ITaskbarList3_SetProgressValue iTask3,hwnd,c,m
title "完了"
stop
*e
delcom iTask3
DestroyIcon hIco
end
ITaskbarList3__SetProgressState iTask3,hwnd,TBPF_INDETERMINATE
ITaskbarList3__SetProgressState iTask3,hwnd,TBPF_PAUSED
ITaskbarList3__SetProgressState iTask3,hwnd,TBPF_ERROR
#define CLSID_TaskbarList "{56FDF344-FD6D-11d0-958A-006097C9A090}"
#define IID_ITaskbarList3 "{ea1afb91-9e28-4b86-90e9-9e9f8a5eefaf}"
#include "user32.as"
#usecom ITaskbarList3 IID_ITaskbarList3 CLSID_TaskbarList
#comfunc ITaskbarList3_SetProgressValue 9 int,double,double
#comfunc ITaskbarList3_SetProgressState 10 int,int
#comfunc ITaskbarList3_ThumbBarAddButtons 15 int,int,int
#comfunc ITaskbarList3_SetOverlayIcon 18 int,int,wstr
#define THB_BITMAP 0x00000001
#define THB_ICON 0x00000002
#define THB_TOOLTIP 0x00000004
#define THB_FLAGS 0x00000008
#define THBN_CLICKED 0x1800
#define TBPF_NOPROGRESS 0x00000000
#define TBPF_INDETERMINATE 0x00000001
#define TBPF_NORMAL 0x00000002
#define TBPF_ERROR 0x00000004
#define TBPF_PAUSED 0x00000008
screen 0,400,80
pos 10,10:font "meiryo",16
mes "HSPでタスクバープログラミング！"
newcom iTask3, ITaskbarList3
LoadImage 0,32513,1,16,16,0x8000
hIco=stat
onexit *e
;----サムネイルツールバー
sdim tip,260 ;ツールチップに表示させる文字
cnvstow tip,"押すなよ！" ;Unicode文字で登録
dim buttons,115
buttons=THB_ICON|THB_TOOLTIP|THB_FLAGS, 0,0,hIco
; ここの値がボタンID ┘
memcpy buttons,tip,260,16,0 ;ツールチップ内容をメモリコピー
ITaskbarList3_ThumbBarAddButtons iTask3,hwnd,1,varptr(buttons)
oncmd gosub *WM_COMMAND,0x111
stop
*WM_COMMAND
if ((wparam>>16)&0x0000FFFF)=THBN_CLICKED{
if (wparam&0x0000FFFF)=0{ ;ボタンID
dialog "ボタンが押されました！"
}
}
return
*e
delcom iTask3
DestroyIcon hIco
end
#uselib "user32"
#func DrawText "DrawTextW" int,wptr,int,int,int
#uselib "kernel32"
#define CP_UTF8 65001 ; UTF-8
#func MultiByteToWideChar "MultiByteToWideChar" sptr,sptr,sptr,sptr,sptr,sptr
//----Unicode(UTF-16)
sdim h16,64 ;確保
lpoke h16,0,38<<24|97<<16|254<<8|255 ;Unicodeでハート（255 254 97 38）
;↓これと同等の処理
;poke h16,0,255 : poke h16,1,254 : poke h16,2,97 : poke h16,3,38
pos 50,50:sysfont 17
mes "Unicodeの文字を描画"
font msgothic,150,16
rect=ginfo_cx, ginfo_cy, ginfo_winx, ginfo_winy ;文字の描画領域
DrawText hdc,varptr(h16),-1,varptr(rect),0
redraw ;必須
//----UTF-8
;最終的にはUnicodeに変換しないといけない
sdim h8,64 ;確保
poke h8,0,239
poke h8,1,187
poke h8,2,191
poke h8,3,226
poke h8,4,153
poke h8,5,161 ;UTF-8でのハート（でかすぎﾌｲﾀｗ 6byte）
pos 200,50:sysfont 17
mes "UTF-8の文字をUnicodeと同じように描画"
font msgothic,150,16
rect=ginfo_cx, ginfo_cy, ginfo_winx, ginfo_winy ;文字の描画領域
DrawText hdc,varptr(h8),-1,varptr(rect),0
pos 200,250:sysfont 17
mes "ですよねー。\n\nと言うわけで変換して描画"
sdim h8to16,64 ;変換後の変数
MultiByteToWideChar CP_UTF8, 0, varptr( h8 ), -1, varptr( h8to16 ), 255
font msgothic,150,16
rect=ginfo_cx, ginfo_cy, ginfo_winx, ginfo_winy ;文字の描画領域
DrawText hdc,varptr(h8to16),-1,varptr(rect),0
redraw ;必須
stop
MultiByteToWideChar CP_UTF8, 0, varptr( h8 ), -1, varptr( h8to16 ), 255| 定数 | 意味 |
|---|---|
| CP_ACP | ANSI コードページ |
| CP_MACCP | Macintosh コードページ |
| CP_OEMCP | OEM コードページ |
| CP_SYMBOL | シンボルコードページ（42） |
| CP_THREAD_ACP | 現在のスレッドの ANSI コードページ |
| CP_UTF7 | UTF-7 を使った変換 |
| CP_UTF8 | UTF-8 を使った変換 |
#uselib "user32"
#func DrawText "DrawTextW" int,wptr,int,int,int
#uselib "kernel32"
#define CP_UTF8 65001 ; UTF-8
#func MultiByteToWideChar "MultiByteToWideChar" sptr,sptr,sptr,sptr,sptr,sptr
#func WideCharToMultiByte "WideCharToMultiByte" sptr,sptr,sptr,sptr,sptr,sptr,sptr,sptr
//----UTF-8
;最終的にはUnicodeに変換しないといけない
sdim h8,64 ;確保
poke h8,0,239
poke h8,1,187
poke h8,2,191
poke h8,3,226
poke h8,4,153
poke h8,5,161 ;UTF-8でのハート（でかすぎﾌｲﾀｗ 6byte）
pos 50,30:sysfont 17
mes "UTF-8の文字をUnicodeと同じように描画"
font msgothic,100,16
rect=ginfo_cx, ginfo_cy, ginfo_winx, ginfo_winy ;文字の描画領域
DrawText hdc,varptr(h8),-1,varptr(rect),0
pos 50,170:sysfont 17
mes "ですよねー。\n\nと言うわけで変換して描画"
sdim h8to16,64 ;変換後の変数
MultiByteToWideChar CP_UTF8, 0, varptr( h8 ), -1, varptr( h8to16 ), 255
font msgothic,100,16
rect=ginfo_cx, ginfo_cy, ginfo_winx, ginfo_winy ;文字の描画領域
DrawText hdc,varptr(h8to16),-1,varptr(rect),0
pos 50,300:sysfont 17
mes "無事描画成功！じゃあ今度は戻してみよう！"
sdim h16to8,64 ;変換後の変数
WideCharToMultiByte CP_UTF8, 0, varptr( h8to16 ), -1, varptr( h16to8 ), 255, 0, 0
font msgothic,100,16
rect=ginfo_cx, ginfo_cy, ginfo_winx, ginfo_winy ;文字の描画領域
DrawText hdc,varptr(h16to8),-1,varptr(rect),0
redraw ;必須
HSP3.2では、文字列処理のための機能２つ(split命令、及びstrtrim関数)が標準で追加されています。
split命令は、文字列から区切り文字を使って分割された要素を取得するための命令です。たとえば、「12,34,56」のように「,」で区切られた文字列から、「12」「34」「56」の要素を取り出して、別々の変数に代入することができます。
例 :
buf="12,34,56"
split buf, ",", a, b, c
mes a
mes b
mes c buf="12,34,56"
dim a
split buf, ",", a
mes a(0)
mes a(1)
mes a(2)strtrim関数は、文字列の中や、両端にある特定の文字を除去します。
例 :
a=" ABC DEF "
b = strtrim(a,0,' ')
mes bobjenable命令は、一時的なオブジェクトの有効化、無効化を設定HSP3.2では、objimage命令によりカスタムボタンを設定することができるようになっています。カスタムボタンとは、ユーザーが用意した画像をボタンの外観とするもので、アプリケーションのイメージを変えることが可能です。 screen 0,200,100
title "ボタンテスト"
objmode 1,1
boxf
objsize 80,25
button gosub "あたい",*btn
button gosub "ってば",*btn
button gosub "最強ね",*btn
stop
*btn
return
chdir dir_exe
buffer 1
picload "crn_btn.gif"
screen 0,200,100
title "ボタンテスト"
objmode 1,1
boxf
objsize 80,25
objimage 1,0,0,0,50,0,25
button gosub "あたい",*btn
button gosub "ってば",*btn
button gosub "最強ね",*btn
stop
*btn
return
