' 2 june 2011 Some different way's to handle input, Copyrighted by J. van Zijl aka Slowdown ' If you like/use the code or part of the code please send me an e-mail ' Trial Q7Basic for Windows? 7/Vista/XP ALPHA 29-April-2011 (32 bit) ' You can find me on, ' http://www.q7basic.org/forum/index.php and ' http://www.kbasic.com/forum/index.php ' j.vanzijl@quicknet.nl ' this is the mainwindow scope Outlet lineEdit As QLineEdit Outlet InputBoxButton As QPushButton Outlet DoItpushButton As QPushButton Outlet OutPutlabel As QLabel Outlet EndProgram As QPushButton Outlet AllFirstWordscheckBox As QCheckBox Outlet FirstCharUpcheckBox As QCheckBox Outlet AllLowcheckBox As QCheckBox Outlet AllUpcheckBox As QCheckBox Outlet ReversecheckBox As QCheckBox Public Dim InputBoxText As String ' Event Init() AllUpcheckBox!checked = True End Event Signal on_InputBoxButton_clicked(Checked As Boolean) InputBoxText = InputBox("Feed me some text") lineEdit.Text = InputBoxText End Signal Signal on_DoItpushButton_clicked(Checked As Boolean) If AllUpcheckBox!checked = True Then OutPutlabel.Text = InputClass.UpCase(lineEdit.Text) End If If AllLowcheckBox!checked = True Then OutPutlabel.Text = InputClass.LoCase(lineEdit.Text) End If If FirstCharUpcheckBox!checked = True Then OutPutlabel.Text = InputClass.FirstCharLineUp(lineEdit.Text) End If If AllFirstWordscheckBox!checked = True Then OutPutlabel.Text = InputClass.AllWordsStartUCase(lineEdit.Text) End If If ReversecheckBox!checked = True Then OutPutlabel.Text = InputClass.ReverseStr(lineEdit.Text) End If End Signal Signal on_AllFirstWordscheckBox_clicked(Checked As Boolean) UnCheckAll() AllFirstWordscheckBox!checked = True End Signal Signal on_FirstCharUpcheckBox_clicked(Checked As Boolean) UnCheckAll() FirstCharUpcheckBox!checked = True End Signal Signal on_AllLowcheckBox_clicked(Checked As Boolean) UnCheckAll() AllLowcheckBox!checked = True End Signal Signal on_AllUpcheckBox_clicked(Checked As Boolean) UnCheckAll() AllUpcheckBox!checked = True End Signal Signal on_ReversecheckBox_clicked(Checked As Boolean) UnCheckAll() ReversecheckBox!checked = True End Signal Public Sub UnCheckAll() AllLowcheckBox!checked = False AllFirstWordscheckBox!checked = False FirstCharUpcheckBox!checked = False AllUpcheckBox!checked = False ReversecheckBox!checked = False End Sub Signal on_EndProgram_clicked(Checked As Boolean) Application.Quit() End Signal