BevelButton.AddRow

From Real Software Documentation

Jump to: navigation, search
Method
BevelButton.AddRow ( Text as String )

Adds a row to the bottom of the menu and uses Text as the menu item. The menu items are constructed from a string array. A call to AddRow within a For loop builds the menu.


Example

The following example creates a BevelButton menu.

Dim s as String
Dim i as Integer
Dim last as Integer
s="January,February,March,April,May,June,July,August,September," _
+"October,November,December"
last=CountFields(s,",")
Me.caption="Month"
Me.captionalign=0 //flush left
Me.hasMenu=2 //menu on right
For i=1 to last
me.addRow NthField(s,",",i)
Next
Personal tools