[dúvida] Vb6 para RealBasic

[Navyseal]

Queria converter uma pequena aplicação de vb6 para realbasic, estou com dificuldades por não conhecer as sintaxes usadas no realbasic, deixo aqui partes de código a serem convertidas caso alguém saiba.

Code Select Expand


Private Sub Command1_Click()

 If IsNumeric(Text2.Text) = False Then MsgBox "Só pode inserir valores numéricos!": Exit Sub

Select Case Combo1.ListIndex

Case 0

Text1.Text = "0,32 a 3"

If Text2.Text < 0.32 Then

Text3.Text = "Resultado X"

ElseIf Text2.Text <3> 3 Then

Text3.Text = "Resultado Y"

End If

End Select

End Sub

Code Select Expand


Dim pesquisa As String



Private Sub cmdPesquisa_Click()



pesquisa = "http://www.cdc.gov/search.do?queryText=" & txtPesquisa.Text



Shell "cmd /c start " & pesquisa

Code Select Expand


Private Sub Command5_Click()

Form5.Show

End Sub

[Byter]

Desculpem a Ignorançia mas o que é o RealBasic?
Tem algo a ver com o VB?

[Teotónio Ricardo]

www.realbasic.com

Code Select Expand

If IsNumeric(",2000") then msgbox("test")

Code Select Expand

[-] Select Case k

[-] Case 1

// some code here

[-] Case 2

// some code here

[-] Case 3

// some code here

End Select
http://www.realsoftware.com/feedback/viewr...portid=ppxglnno

Tens ai nesse link o shell command...