No me aparece la barra de herramientas auxiliar al crear un formulario
uso Ubuntu mate 16.04, gambas 3.9.1 (antes 3.8.4)
no puedo añadir ningún textbox, ni nada ya que no aparece cuando tengo formulario, ni código,
Me aparece un candado cerrado en la barra horizontal junto a la ventana de código entre Reload y Paste
No sé como copiar el pantallazo de gambas. Perdón.
' gambas class file
' Diccionario Inglés - Castellano
' Koldo 0.0.2
' 20161114
Const TAMANO As Integer = 10000
Const nlin As Integer = 10000
Public diccio As New String[nlin + 1]
Public Struct diccioEnglish
word As String
palabra As String
End Struct
Public f0 As File
Public f1 As File
Public f2 As File
Public l As Integer = 0
Public ndatos As Integer
Public nl As Integer = 0
Public posi As Integer = 0
Public IE As New DiccioEnglish
Public ruta As String = "/home/koldo/Programas/Gambas/Grafica/DiccioIngles/"
Public diccionario As String = "DiccioIngles.txt"
Public dirDic As String = ruta & diccionario
Public Sub Form_Open()
TextBoxMensajes.Text = "Abriendo formulario "
Wait 1
Print "_Open "
End
Public Sub _new()
Message.Info("Programa diccionario Inglés - Castellano")
Wait 1
TextBoxMensajes.Clear
If Not Exist(dirDic) Then
f0 = Open dirDic For Create
Close f0
Else
f2 = Open dirDic For Append
Endif
'LeerDiccionario()
' EscribirDiccionario()
Print "_New"
Wait 1
End
Public Sub ButtonInicio_Click()
TextBoxIngles.Text = ""
TextBoxCastellano.Clear
TextBoxIngles.SetFocus() ' pasa el foco a tb inglés
End
Public Sub ButtonFinalizar_Click()
Close f2 'cerrar el fichero abierto para añadir
' LeerDiccionario()
' QSK(diccio, 0, l)
' EscribirDiccionario()
' LeerDiccionario()
TextBoxMensajes.Info("Adios.Fin de programa Diccionario Inglés-castellano")
Wait 1
Quit
End
Function numSignos(ByRef Cad As String) As Integer
Dim i As Integer = 0
Dim j As Integer
Dim c As String = "?"
For j = 1 To Len(Cad)
' Print ":::::", i, j, c, Cad,
c = Mid$(Cad, j, 1)
If (c = "+") Or (c = "-") Then
Inc i
If j > 1 Then
Inc i
Break
End If
Endif
' Print "*********", i, j, c, Cad
Next
Return i
End
Public Sub LeerDiccionario()
Dim cad As String
Dim i As Integer
Print "Datos diccionario leídos"
f1 = Open dirDic For Input
Input #f1, cad
Print Trim(cad)
Print "nº datos cadena= ", "!"; cad; "!"
Print "="; cad;
Print "="
Print
cad = Trim(Mid$(cad, 2))
Print "!"; cad; "!"
' ndatos = CInteger(Val(cad))
Print "nº datos: ", ndatos
Wait 10
l = 0
While Not Eof(f1) And (l <ndatos> ax[i])
Inc i
Wend
While (valor < ax[j])
Dec j
Wend
If (i <j> j)
If (iz < j) Then
QSK(ax, iz, j)
Endif
If (i < de) Then
QSK(ax, i, de)
Endif
End
Public Sub ButtonSiguiente_Click()
TextBoxIngles.Text = ""
TextBoxCastellano.Clear
ListBoxInglespanol.Add(IE.word & "=" & IE.palabra)
TextBoxIngles.setFocus 'devuelve el control a ingles
End
Public Sub TextBoxIngles_KeyPress()
If Key.code = Key.Enter Or Key.code = Key.return Then
IE.word = Trim(TextBoxIngles.Text)
ListBoxInglespanol.Add(IE.word)
TextBoxCastellano.setfocus 'pasa el foco a castellano
Endif
End
Public Sub TextBoxCastellano_KeyPress()
If Key.Code = Key.Enter Or Key.Code = Key.Return Then
IE.palabra = Trim(TextBoxCastellano.Text)
ListBoxInglespanol.Add(IE.palabra)
ButtonSiguiente.setfocus 'pasa el control a btn siguiente
Endif
End
Public Sub ListBoxInglespanol_Click()
End
Public Sub TextBoxMensajes_KeyPress()
End