HSPTV!掲示板

objsize 100
listbox a, 80, "TEST\nTEST\nTEST\nTEST\nTEST\nTEST\nTEST\nTEST

ListBoxで縦スクロールバーを非表示にするにはどうすればいいのでしょうか？

あれ、戻ってくるのはやいですね。

ListBoxの縦の大きさをリストの全体の縦サイズより大きくすればいいと思います。

objsize 100
listbox a, 160, "TEST\nTEST\nTEST\nTEST\nTEST\nTEST\nTEST\nTEST

回答ありがとうございます
ListBoxの縦の長さを長くするという方法以外で非表示にしたいと思っています

>>Whosさん
　では、仮に非表示にできたとして、
　表示するときにはみ出してしまったらどうするつもりですか？

>>Cookiesさん
ListBox内でスクロールバーを非表示にしてはみ出す事なんてあるのでしょうか？
無知ですいません
マウスの真ん中のスクロールボタンで上や下にスクロール出来ればと思っています

>>Whosさん

それってもうリストボックスではないような…

はみ出ない限りスクロールバーは出ない。

objsize 100
pos 640-80,0:listbox a, 30, "TEST\nTEST\nTEST\nTEST\nTEST\nTEST\nTEST\nTEST

こういう方法なら出来なくもない。

listboxのyサイズを大きくする、
もしくは要素の数を少なくする。

もしくは自分で作ってしまう。
なお、自分で作る場合は、どのように作るのかの質問は無しの方面でお願いします。

	#uselib "user32.dll"
	#func SetParent "SetParent" int,int
	bgscr 1,100,100,2,10,10,100,100
	line 0,0,99,0
	line 0,99
	line 99,99
	line 99,0
	color
	pos 0,0
	mes "TEST\nTEST\nTEST"
	child=hwnd
	gsel 0,0
	SetParent child,hwnd
	gsel 1,1
	gsel 0,0
	mes "オブジェクトのようにするにはまだまだ実装していかなければならない点が多い"
	mes "なお、このオブジェクトもどきは別のウィンドウなので"
	mes "ここに書いている内容はオブジェクトもどきにかくされてしまう。"
	mes "boxfで塗りつぶされない。"
	wait 100
	color ,,255
	boxf
	wait 100
	color
	mes "cls命令を使っても消えない。"
	wait 100
	cls
	wait 100
	mes "gsel 1,-1で表示されなくなる。"
	wait 100
	gsel 1,-1
	wait 100
	gsel 0,0
	mes "gsel 1,1で再度表示される"
	wait 100
	gsel 1,1
	gsel 0,1
	wait 100
	mes "以上"

>>momさん

触れないようにしましょう。

書いている間に他の人の投稿が無いかの確認を忘れていました。
すみません。

　リストボックスのバーの上に、半透明なウィンドウをシールのように貼れば、スクロールバーへのクリックのみ阻害する事ができます。以下は一例

//シールを貼ってクリックを無効化する(No.4806の名無し様のソースを参照)
//終了はALT+F4で
	#include "user32.as"

	#define MAIN_WINDOW 0
	#define SEAL_WINDOW 1
	#define SEAL_SX 120
	#define SEAL_SY 90
	#define SEAL_PX 240
	#define SEAL_PY 180
	#define SEAL_DISPX wx+SEAL_PX+3
	#define SEAL_DISPY wy+SEAL_PY+27
	#define SET_WX gsel MAIN_WINDOW : wx = ginfo_wx1
	#define SET_WY gsel MAIN_WINDOW : wy = ginfo_wy1
	
	string = {"
	ウツボット
	サボネア
	マスキッパ
	デスマス(草じゃないね……)
	次のコジロウ捕食草ポケは誰だろうね？
	ひゃっはー
	ひゃっはー２
	ひゃっはー３
	"}

	screen MAIN_WINDOW, 640, 480, 0
	objsize SEAL_SX, SEAL_SY
	pos SEAL_PX, SEAL_PY
	listbox list, 0, string
	SET_WX
	SET_WY
	bgscr SEAL_WINDOW, SEAL_SX-100, SEAL_SY, 0, SEAL_DISPX+100, SEAL_DISPY
	gsel SEAL_WINDOW, 2
	color 192, 255, 224
	boxf
	GetWindowLong hwnd,-20
	SetWindowLong hwnd,-20,stat|$80000
	SetLayeredWindowAttributes hwnd,0xffffff,128,3

*前口上は変わっても、吹っ飛び捨て台詞は変わらない
	pre_wx = wx
	pre_wy = wy
	SET_WX
	SET_WY
	if (pre_wx ! wx) | (pre_wy ! wy) {
		gsel SEAL_WINDOW
		width , , SEAL_DISPX+100, SEAL_DISPY
	}
	wait 17
	goto *前口上は変わっても、吹っ飛び捨て台詞は変わらない

　……しかし、前に書き込んだ時も思ったのですが、この方法はかなり雅やかさに欠けます。もう少し雅な方法は無いものでしょうか……

解決が遅れてすいません

皆様回答ありがとうございます
とても参考になりました
ありがとうございました