しょぼグラマなページ

久々にバージョンうｐ
いつまでβなんだこれ、そろそろ正式版出したいぜ

GracenoteCDDB関係の機能追加したらファイル容量が2倍になったけど気にしない
でも容量食いすぎだろｗもっとコンパクトにしてほしいぜ

□取得
‘宣言部分
Const SBS_HORZ As Integer = 0
Const SBS_VERT As Integer = 1

Private Declare Function GetScrollPos Lib “user32.dll” (ByVal hWnd As IntPtr, ByVal nBar As Integer) As Integer

‘使用法
Dim x As Integer = GetScrollPos(Control.Handle, SBS_HORZ)
Dim y As Integer = GetScrollPos(Control.Handle, SBS_VERT)

□設定
‘宣言部分
Const SBS_HORZ As Integer = 0
Const SBS_VERT As Integer = 1
Const WM_VSCROLL As Integer = &H115
Const WM_HSCROLL As Integer = &H114
Const SB_THUMBPOSITION As Integer = 4
Private Declare Function SetScrollPos Lib “user32.dll” (ByVal hWnd As IntPtr, ByVal nBar As Integer, ByVal nPos As Integer, ByVal bRedraw As Boolean) As Integer
Private Declare Function PostMessageA Lib “user32.dll” (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Boolean

‘使用法
‘下方向に20だけスクロールする
Dim Position As Integer = GetScrollPos(Control.Handle, SBS_VERT) + 20

If SetScrollPos(Control.Handle, SBS_VERT, Position, True) <> -1 Then
　PostMessageA(Control.Handle, WM_VSCROLL, SB_THUMBPOSITION + &H10000 * Position, Nothing)
End If

http://www.codeproject.com/KB/vb/APIScroll.aspx

Listview.HitTest メソッドに Cursor.Pasition を Listview.PointToClient でデスクットプ座標からクライアント座標に変換したものを渡す

Dim pt As Point = ListView2.PointToClient(Cursor.Position)
Dim hti As ListViewHitTestInfo = ListView2.HitTest(pt)

HitTestメソッドは.NET Framework2.0以降のみ

更新内容

○抽出時、テンポラリディレクトリにflacTGFフォルダが作成されていなかったのを修正
○埋め込み(FLAC)で画像選択時、ファイル選択ダイアログで複数選択できていなかった＆BMPのビット深度選択ダイアログが表示されなかったのを修正
○簡易プリセットをCue、画像、Logのチェックボックスも保存するように変更
○プリセットデータの仕様を変更(起動時作成、一つに纏め、Vistaは%APPDATA%に移動)

β11で作成された”Preset0.dat”と”Preset3.dat”は不要ですので削除してください

20:17
CueSheetEditのツールバーが消えていたのを修正
β11の時点で消えてたしorz

2chに書き込みまくるのは、なぜか肩身が狭いような感じなのでBlog立ててみた
@Wikiは昔使ったことがあったのでここを選んだ（本当はBlog一覧で上位（ｒｙ

これからはここで開発状況(とかどーでもいいこと)でもかいていけたらなあ、と
相変わらずネーミングセンスねー

TAF
http://www1.zero.kotonet.com/~taf/