wxBásico

' de https://wxbasic.sourceforge.net/phpBB2/viewtopic.php?t=554 ' Visor de texto simple escrito en wxBasic dim AppName = "Text Viewer" fileName = ""' Ventana principal dim frame = new wxFrame ( Nothing , - 1 , AppName & " - Documento sin título" ) ' Control de edición de texto dim control = new wxTextCtrl ( frame , - 1 , "" , wxPoint ( 0 , 0 ), wxSize ( 100 , 100 ), wxTE_MULTILINE | wxTE_READONLY | wxTE_RICH )' Barra de estado: la que está en la parte inferior de la ventana dim status = frame . CreateStatusBar ( 1 ) frame . SetStatusText ( "Listo" ) ' ' Diálogo utilizado para Abrir dim fileDialog = new wxFileDialog ( frame ) ' ' agregar barra de menú al marco dim mBar = new wxMenuBar () frame . SetMenuBar ( mBar ) ' ' construir el menú desplegable "Archivo" dim mFile = new wxMenu () mBar . Append ( mFile , "&Archivo" )' hazlo ' mFile . Append ( wxID_OPEN , "&Abrir..." , "Carga un archivo existente desde el disco" ) ' mFile . AppendSeparator () mFile . Append ( wxID_EXIT , "E&xit\tAlt-X" , "Salir de la aplicación" )Sub onFileOpen ( evento ) fileDialog . SetMessage ( "Abrir archivo" ) fileDialog . SetStyle ( wxOPEN ) If fileDialog . ShowModal () = wxID_OK Then fileName = fileDialog . GetPath () Ext = fileDialog . GetFilename () control . Clear () control . LoadFile ( fileName ) frame . SetTitle ( AppName & " - " & fileName ) frame . SetStatusText ( Ext ) End If End Sub ' Connect ( frame , wxID_OPEN , wxEVT_COMMAND_MENU_SELECTED , "onFileOpen" )Sub onFileExit ( evento ) frame . Close ( True ) End Sub ' Connect ( frame , wxID_EXIT , wxEVT_COMMAND_MENU_SELECTED , "onFileExit" )' Construir el menú desplegable "Ayuda" dim mHelp = new wxMenu () mBar . Append ( mHelp , "&Ayuda" ) mHelp . Append ( wxID_HELP , "&Acerca de\tF1" , "Acerca de este programa" ) ' Sub onHelpAbout ( event ) Dim msg = "Text View permite que cualquier archivo de texto\n" & "se vea independientemente de su extensión.\n" & "Si el archivo que se abre no es un archivo de texto\n" & "no se mostrará. Se mostrará un\n" & "un poco de basura y eso es todo." wxMessageBox ( msg , "Acerca de Text View" , wxOK + wxICON_INFORMATION , frame ) End Sub Connect ( frame , wxID_HELP , wxEVT_COMMAND_MENU_SELECTED , "onHelpAbout" )marco . Mostrar ( Verdadero )