Private Sub CommandButton1_OnEvent()
dim i,j as integer
dim xmax , ymax as string '(1)
'dim xmax as string (2)
'dim ymax as string (2)
dim od as opendialog
dim s as string =od.getfile("Attention","d:\Program files\kbasic\examples\npl.kbasic_project","Nombres placés (*.npl)")
me.text=s
If s Then
Open s For Input As #1
input #1,xmax
textbox1.text=xmax
input #1,ymax
textbox2.text= ymax
End If
End Sub
frm_Main.Udp1.WriteData(UDPString)
Dim Dummy as String
Dummy = "This is not an empty string"
Print Dummy;" ";Len(Dummy)
Remove (Dummy, 9,3)
Print Dummy;" ";Len(Dummy)