VB.NET FOR SNAP

欧阳天痕

1. Imports Snap, Snap.Create, Snap.UI.Input
   
2. 
   
3. Public Class MyProgram
   
4. 
   
5.    Public Shared Sub Main()
   
6. 
   
7.       Dim cue As String = "Please enter an integer in the dialog"
   
8.       Dim title As String = "Integer Entry"
   
9.       Dim label As String = "Enter it here"
   
10.       Dim initialValue As Integer = 1
    
11. 
    
12.       Dim intValue As Integer = GetInteger(cue, title, label, initialValue)
    
13. 
    
14.       InfoWindow.WriteLine("Integer value entered = " & intValue)
    
15. 
    
16.    End Sub
    
17. 
    
18. End Class

复制代码