概要:
scaHalfStarRatingユーザーコントロールは、 サイト上にスターレーティング機能を提供します。
特徴:
- ハーフスターも可能です。
- オプションでクリアーも可能です。
- 星の数の指定が可能です。
- 次のEventとの利用が可能です。: Mouse over、 mouse out、 Clear button pressed
対象環境:
Web
使用方法 :
本コントロールは、コントロールタイプのユーザーコントロールであり、toolbox上では表示されません。FCK Editorユーザーコントロールを使用して、コントロールタイプのプロパティより本コントロールを選択してください。数値型変数をform上に設置して、ControlTypeでscaHalfStarRatingを選択します。
Native GeneXus Eventとして、MouseOver、 MouseOut,、 Click、Cancel eventsを使用することができます。
Properties:
- Stars: スターの数を指定できます。(5がdefaultです)
- HalfStar: true/falseでハーフスターを使用するか選択可能です。
- ClearButton: クリアボタンを使用するか選択可能です。(clearsがdefaultです。)
Example :
&rate変数をN(4,0)で作成します。
web formに作成した変数を追加します。
Control propertyでscaHalfStarRatingを選択します。
これで準備は完了です。次がサンプルコードとなります。
Events:
Event &rate.MouseOver
&value = &rate.MouseOverValue
Do 'ChangeText'
EndEvent
Event &rate.MouseOut
if &rate=0
DescTextBlock.Caption = ""
else
&value = &rate
Do 'ChangeText'
endif
EndEvent
Event &rate.Click
&value = &rate
Do 'ChangeText'
EndEvent
Event &rate.Clear
DescTextBlock.Caption = ""
EndEvent
Sub 'ChangeText'
Do case
case &value = 10
DescTextBlock.Caption = "Excellent"
case &value = 9
DescTextBlock.Caption = "Very good"
case &value = 8
DescTextBlock.Caption = "Good"
case &value = 7
DescTextBlock.Caption = "Acceptable"
case &value = 5 or &value = 6
DescTextBlock.Caption = "Regular"
case &value = 3 or &value = 4
DescTextBlock.Caption = "Poor"
case &value = 1 or &value = 2
DescTextBlock.Caption = "Very poor"
endcase
EndSub