x 베이직

  http://wxbasic.sourceforge.net/phpBB2/viewtopic.php?t=554 에서 입수.   wxBasic으로 작성된 심플 텍스트 뷰어   어둡다 앱명 = "텍스트 뷰어"   파일명 = ""    ' 메인창   어둡다 틀 = 신규 wx프레임( 아무 것도 없어요., -1, 앱명 & " - 제목 없는 문서" )   ' 텍스트 편집 컨트롤   어둡다 통제 = 신규 wxTextCtrl( 틀, -1, "", wxPoint( 0, 0 ),   크기( 100, 100 ), wxTE_MULTILINE   wxTE_읽기 전용   wxTE_리치)    상태 표시줄 - 창 하단에 있는 상태 표시줄   어둡다 상황 = 틀.Create Status Bar(작성 상태 바)( 1 )   틀.Set Status Text(상태 텍스트 설정)("준비 완료")   '   ' 열기에 사용되는 대화 상자   어둡다 fileDialog(파일대화상자) = 신규 wxFileDialog( 틀 )   '   프레임에 메누바를 추가하다   어둡다 mbar = 신규 wxMenu바()   틀.Set Menu Bar(설정 메뉴 바)(mbar)   '   "파일" 드롭다운 메뉴를 만듭니다.   어둡다 m파일 = 신규 wx메뉴()   mbar.추가(m파일, "파일")    '만들다   '   m파일.추가( wxID_OPEN, "&오픈...", "디스크에서 기존 파일 로드" )   '   m파일.분리기 추가()   m파일.추가( wxID_EXIT, "E&xit\tAlt-X", "응용 프로그램 종료" )    후보선수 온파일오픈( 이벤트 )      fileDialog(파일대화상자).Set Message(설정 메시지)("파일 열기")      fileDialog(파일대화상자).SetStyle(세트스타일)( 열리다 )      한다면 fileDialog(파일대화상자).Show Modal() = wxID_OK 그리고나서        파일명 = fileDialog(파일대화상자).GetPath()        익스텐트 = fileDialog(파일대화상자).Get Filename(파일 이름)()        통제.분명한()        통제.로드 파일( 파일명 )        틀.SetTitle(설정 제목)( 앱명 & " - " & 파일명 )        틀.Set Status Text(상태 텍스트 설정)(익스텐트)     끝. 한다면   끝. 후보선수   '   연결하다( 틀, wxID_OPEN, wxEVT_COMMAND_MENU_SELECTED, "onFileOpen" )    후보선수 on FileExit( 이벤트 )     틀.가까운.(진실의)   끝. 후보선수   '   연결하다( 틀, wxID_EXIT, wxEVT_COMMAND_MENU_SELECTED, "on File Exit" )    "도움말" 드롭다운 메뉴를 만듭니다.   어둡다 도움말 = 신규 wx메뉴()   mbar.추가(도움말, "&헬프")   도움말.추가( wxID_HELP, "&About\tF1", "이 프로그램에 대해서" )   '   후보선수 onHelp About(도움말 정보)( 이벤트 )     어둡다 메시지 = "텍스트 표시는 모든 텍스트 파일을 허용합니다\n" &     "확장에 관계없이 볼 수 있습니다.\n" &     "열고 있는 파일이 텍스트 파일이 아닌 경우\n" &     "그렇다면 표시되지 않을 것입니다.\n"이 있습니다. &     "작은 쓰레기만 보일 뿐"     wxMessageBox( 메시지, "텍스트 보기에 대하여", 정상 + wxICON_정보, 틀 )   끝. 후보선수   연결하다( 틀, wxID_HELP, wxEVT_COMMAND_MENU_SELECTED, "도움말 정보" )    틀.표시(진실의)