Thread: CalcTable1.0
View Single Post
  #12 (permalink)  
Old 05-28-2008, 07:03 AM
klaus's Avatar
klaus klaus is offline
Basic4ppc Expert
 
Join Date: Oct 2007
Location: Switzerland
Posts: 532
Awards Showcase
Beta Tester Competition Winner 
Total Awards: 2
Default

Hi Rioven,

At last I have taken time to look at you updated version. I was abroad during 10 days and during the last days I did some other stuff.

In trying it, I many times forgot to click on the check button, probabIy Excel habits. I added one line in the TextBox1_LostFocus routine that valdates the entry directly when clicking on another cell in the table.

Code:
Sub textbox1_lostfocus
  If srow<>-1 AND scol<>-1 AND Control("col"&Scol,arraylist).count<>0 Then 'only functions on Desktop
'    Control("col"&Scol,arraylist).item(Srow)=textbox1.Text
'    table1.Cell(table1.ColName(Scol),Srow)=textbox1.Text
    imgm.Visible=false
    imgn.Visible=false	
  End If
  CheckT1_Click
  Sip=false
End Sub
What is he hidden TextBox2 for ? I suspect that it is to get the LostFocus and Focus for TextBox1 work properly.

On top for the filename, I would display only the filename without the path, with long pathnames the field could become too short.
Perhaps another thought, replace the label for the filename by a ComboBox, if the user makes related calculations with different files, he could add the filenames in the ComboBox and then get a quicker access to load them.

For me, to make reading easier, I prefer having upper case characters in long names, like FixTableWidth instead of fixtablewidth. But this is one cosmetic opinion.

I have joined the updated version.

Good job !

Best regards.
Attached Files
File Type: sbp calctable1.2.sbp (48.5 KB, 8 views)
__________________
Klaus
Switzerland
Reply With Quote