scaHalfStarRating

概要:

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