Visual Basic

Re: How to Set different forecolor to numbers between 0-9.

4-Jun-10 0:31

Hello ,

I wanna create an VB6 Appln, in which each number between 0-9 has different forecolor .And when the number is pressed specified forecolor for that number should set in cell.Eg: If 0 = Red, 1=Green, 2 =Blue. When 0 is pressed its forecolor should be red and when 1 is pressed its forecolor should be Green and so on. And When 12 is pressed 1=Green and 2=Blue. Can anybody help me to achieve this.Any suggestion Appreciated.What should i start with?

Regards

Rizwan

Dave Kreskowiak4-Jun-10 2:07

Dave Kreskowiak

4-Jun-10 2:07

mdrizwan_1 wrote:
I wanna create an VB6 Appln,

A what? Are you saying that you want to create an Excel AddIn in VB6?

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008
But no longer in 2009...

Re: How to Set different forecolor to numbers between 0-9.

mdrizwan_14-Jun-10 2:43

Re: How to Set different forecolor to numbers between 0-9.

4-Jun-10 2:43

Hello Dave Kreskowiak,
Thanks for your response. You may assume it as an AddIn. Its a mini project where i can enter number with different colors and save it in Excel or any supportable format. and it should be editable. Any suggestion appreciated?

Regards

Rizwan

Dave Kreskowiak4-Jun-10 4:34

Dave Kreskowiak

4-Jun-10 4:34

I've never written an Excel AddIn in VB6 and I recommend you don't either. I'd use something far more up-to-date, like VB.NET. You can find examples with a little application of Google. Here...[^]

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008
But no longer in 2009...

Re: How to Set different forecolor to numbers between 0-9.

mdrizwan_14-Jun-10 21:13

Re: How to Set different forecolor to numbers between 0-9.

4-Jun-10 21:13

Hello Dave,

Thanks for the link .Can you help me for a start ???

Regards

Rizwan

Dave Kreskowiak5-Jun-10 2:10

Dave Kreskowiak

5-Jun-10 2:10

I already did with the links. I've never written an Excel AddIn, nor have I touched VB6 in about 8 years.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008
But no longer in 2009...

Re: How to Set different forecolor to numbers between 0-9.

mdrizwan_15-Jun-10 2:20

Re: How To Sort DataGridView

5-Jun-10 2:20

Thanks for it Dave.

Regards

Rizwan

How To Sort DataGridView

Thaer Hamael2-Jun-10 19:55

Thaer Hamael

2-Jun-10 19:55

Hi All

I Want To Sort The DataGridView by Design And Code
pls Send Me a Code As Sample

Thanks
Rose | [Rose]

Thaer

Chris C-B2-Jun-10 20:13

Chris C-B

2-Jun-10 20:13

In what way is the build-in DataGridView sort function not adequate?

Re: How To Sort DataGridView

Abhinav S2-Jun-10 20:19

Abhinav S

2-Jun-10 20:19

See here.

My signature "sucks" today

Re: How To Sort DataGridView

Baconbutty2-Jun-10 21:29

Baconbutty

2-Jun-10 21:29

Why can't you find out for yourself?

Look on Google.
Read a book.

I assume that you are in the IT development business or wish to be.
If that IS the case you won't get very far if you ask everyone else to do your work for you.

India I assume?

Lost_focus and save button.

lemarshall2-Jun-10 16:51

2-Jun-10 16:51

I have a total of 65 text boxes which the user can fill in. They are 13 down and 5 across. Each row is related to a particular material (which can change daily -see earlier posts) the columns are for quality of material.

In Debug mode stepping through the code this is what happens:
If I pull up the form and enter data into one textbox and then click on the save button the program goes through the save routine, but there is nothing to save and then it hits the Lost_focus event of the text box and runs through and saves the data to the collection class but doesn't save the information.

If I enter one text box and then tab to another the Lost_focus of the first textbox saves the data to the collection class and then click on the Save button the program saves the info to the tables properly and then runs the Lost_focus event of the second text box.

I don't remember this happening in VB6 so I am sure it has to do with the new form collection class, etc. I am confused and wonder now what is the proper way to proceed. I need to be able to save for each form anywhere from 1 to 65 types of material on each form.

The text_changed proeprty won't work as it fires on each digit being entered- 123 causes the event to fire 3 times.

Here is the code for the SaveMaterial function from the save button, the StoreMaterial2COL function and the first couple of lost_focus Subs:

Private Function SaveMaterial() As Boolean

    Try
        ' The index of a zero-based collection is Count property minus 1.
        Dim iCnt As Integer
        iCnt = myMaterialsCollection.Count
        iCnt = iCnt - 1

        With myMaterialsCollection
            For Each aItem In myMaterialsCollection
                If iCnt = -1 Then
                    Exit For
                End If
                _gblString = CreateGUIDString()

                gblConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\JWI\Data\JWI.mdb;Jet OLEDB:Database Password=jWi;")

                strData = "INSERT INTO LOLItems (LOLItemsID, LOLIFormID, Type, TextBox, MaterialsID, Units, DateCreated )" _
                & " VALUES ('" & _gblString & "',  " _
                & "'" & _frmGuid & "', '" _
                & 1 & "',' " _
                & aItem.txtBoxName & "',' " _
                & aItem.MaterialID & "',' " _
                & aItem.jnts & "',' " _
                & Now() & "');"

                gblCMD.Connection = gblConn
                gblCMD.CommandText = strData
                Dim cmd As New System.Data.SqlClient.SqlCommand

                gblConn.Open()
                gblCMD.ExecuteNonQuery()

                myMaterialsCollection.Remove(iCnt)
                iCnt = iCnt - 1  'decrement until empty
            Next

        End With

    Catch ex As Exception
        MsgBox(ex.ToString)
    End Try
End Function

Public Function StoreMaterial2COL(ByRef matID As String, ByRef ctrlname As String, ByRef jnts As String)
    Try
        'need to check to make sure the txtboxName has not been entered already
        'if so then the user is updated the amt and we need to update the
        'jnts and not add a new record.
        aItem.txtBoxName = ctrlname
        aItem.MaterialID = matID
        aItem.jnts = jnts

        myMaterialsCollection.Add(aItem)
    Catch ex As Exception

        'Catch ex As System.InvalidCastException
        MsgBox(ex.ToString)
    End Try
    Return True

End Function

'*#*#*#*#*#*#*#*#*#*#*#*#*
'Need to try to make a more generic method of doing this- a control array maybe????
'This is for column 1 Junk Rods
Private Sub txtRodJ_0_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtRodJ_0.LostFocus
    StoreMaterial2COL(lblRods_0.Tag, txtRodJ_0.Name, txtRodJ_0.Text)
End Sub
Private Sub txtRodJ_1_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtRodJ_1.LostFocus
    StoreMaterial2COL(lblRods_1.Tag, txtRodJ_1.Name, txtRodJ_1.Text)
End Sub
Private Sub lblRodJ_2_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtRodJ_2.LostFocus
    StoreMaterial2COL(lblRods_2.Tag, txtRodJ_2.Name, txtRodJ_2.Text)
End Sub
Private Sub txtRodJ_3_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtRodJ_3.LostFocus
    StoreMaterial2COL(lblRods_3.Tag, txtRodJ_3.Name, txtRodJ_3.Text)
End Sub

As always any assistance is greatly welcomed.
Larry

Dr.Walt Fair, PE2-Jun-10 17:15

Dr.Walt Fair, PE

2-Jun-10 17:15

Have you tried using the control's Validating or Validated events?

CQ de W5ALT

Walt Fair, Jr., P. E.
Comport Computing
Specializing in Technical Engineering Software

lemarshall2-Jun-10 17:32

2-Jun-10 17:32

Not sure about those events but will look into them. Thanks Lary

George B Gilbert2-Jun-10 17:17

George B Gilbert

2-Jun-10 17:17

I find it's not a good idea to bug the user with a save every time a control looses focus. In fact, editing of the user's inputs in all controls should not happen until a save is triggered. In my opinion, a save should happen when one of two events happens ... (1) a Save button is clicked by the user (hence they expect it to happen), or (2) the FormClosing event fires. And the latter should trigger a save only if the user made at least one change in any of the controls which should cause a message box to display to ask the user if the changes are to be saved or not. In other words, the user should be alerted that they are about to loose changes; but, should have the option to discard or save the changes.

Hope all that makes sense. There's an article on this topic that you may find interesting. Click here to read it.

lemarshall2-Jun-10 17:32

2-Jun-10 17:32

The Save works only when they click on the Save button to cycle through the Material Collection class. When the control loses focus then it STORES the necessary info into the Material collection class. I figured this would be easier than cycling through each text box when the Save button was clicked and then doing something like :
if len(textbox.text)> 0 then
Store necessary info to table
end if
and then to the next textbox and so on.

My problems seems to be that the events don't fire in the sequence that I'm expecting. I can enter data into 2 or 15 text boxes and when I click on Save it always seems to handle the number of items in the collection and THEN go to at least one more textbox even though there is no data stored in it. If I enter data into just one text box then the Save routine runs before the STORE routine for the textbox and then that store routine runs and then the next textbox lost focus runs also. Not sure why?

Thanks,
Larry

George B Gilbert2-Jun-10 19:03

George B Gilbert

2-Jun-10 19:03

I'm not following for some reason. That sounds awfully convoluted. Guess I'd have to look at the code.

lemarshall3-Jun-10 2:40

3-Jun-10 2:40

Your right it is convoluted. Let me lay out part of the design specs. We are dealing with scrap material commodity selling. There will be 30-40 buyers/sellers working with the form and can make 20-30 buys/sells per hour. What makes it difficult is they want to top selling items from yesterday to show as the first item on the form today. In other words, if 3/8 inch rod traded more yesterday then today it needs to be at the top of the list. If today 5/8 inch rods sold the most then tomorow they need to be at the top of the list. So each day, the order in which the items show can change.

I can calculate total number of sales of each item and then fill the items into a label which has the name of the item and then in the labels .tag property I store the GUID for the item. Then I name each of the textboxes acrosss the screen based upon the item name.

Each item has 5 grades from Junk to New and it is possible that on one order the user can sell 20 joints of 3/8 inch rod Junk, 15 joints of 3/8 inch rod Good (B2) and 10 rods of 3/8 inch rod New.

That is why I thought the best reason is to store each entry into a text box on the Lost_focus event into a Material collection class and then save the items to the tables from that class when they click on the Save button which will also close the form and allow them to go on to the next order.

Anything anyone can come up with to make it easier will be greatly appreciated.

Larry

George B Gilbert3-Jun-10 6:35

George B Gilbert

3-Jun-10 6:35

I'm not seeing the need to store the data in both a collection and in the textboxes. Why can't the data reside just in the text boxes until the Save button is clicked? Then there would be no background overhead trying to duplicate the data from the textboxes in a collection class. It sounds to me like the simpler, and possibly more robust approach would be to remove the LostFocus events entirely. When the Save button is clicked, instantiate the collection, transfer the data from the textboxes to the collection, and then store the data in the database.

lemarshall3-Jun-10 16:13

3-Jun-10 16:13

Right, but I initially thought that I would have to cycle through EVERY textbox and if there was a value in it then store the data directly to the table then. I would be able to pick up the MaterialID from the GUID stored in the label for the row. I just thought that would be more time consuming and convoluted than this way.

But I am open for suggestions. There are a lot more textboxes on the form than just the 65 for the materials so I have to be able to prevent any others from being searched. I beleive that can be done by cycling through the textboxes on tabLOLfrm.TabPage1 and tabLOLfrm.TabPage2 and tabLOLfrm.TabPage3. I beleive that the textboxes on the container are not recognized by the form so that might be one way. I remember that VB6 had the control array feature which was much easier to utilize. I have seen a number of attempts to create a control array in VB.Net but don't know exactly how to make a simple easy way to work. I've tried about 3 diferent ways from several different sources.

Again, I appreciate your input and insight so far, any further assistance is greatly apreciated. I'm going to start working and this suggestion tonight and see what I can accomplish.

Larry