Visual Basic

Re: datagridview button column - text not displaying

30-Mar-10 23:49

Thanks for the reply but that didn't work

the example was taken from MSDN grid button example

Eddy Vluggen31-Mar-10 0:21

Eddy Vluggen

31-Mar-10 0:21

You're right. I've taken the example, compiled it using SharpDevelop, the example shows the exact same code;

VB.NET

' Add a button column. 
Dim buttonColumn As New DataGridViewButtonColumn()
buttonColumn.HeaderText = ""
buttonColumn.Name = "Status Request"
buttonColumn.Text = "TestText"
buttonColumn.UseColumnTextForButtonValue = True

The HeaderText is the caption of the column, my bad. And yes, this code should have changed the caption of the button within the buttoncolumn.

It seems that the example works. Can you post your version of the code?

I are Troll Suspicious | :suss:

Re: datagridview button column - text not displaying

Simon_Whale31-Mar-10 0:27

Re: datagridview button column - text not displaying

31-Mar-10 0:27

Thanks for this Ed

Private Sub Properties_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'set the screen size according to values in the app.config
        Me.Width = My.Settings.x
        Me.Height = My.Settings.y

        'load in the list of countries they can use
        'Dim cList As New List(Of ClientHome.vb.Countries)

        'Dim x As New ClientHome.vb.Buildings
        'cList = x.Countries
        'cbCountries.DataSource = cList
        'x = Nothing

        'expiry date
        'dtBldExpiry.Value = DateAdd(DateInterval.Day, 365, dtBldStart.Value)
        'dtCntExpiry.Value = DateAdd(DateInterval.Day, 365, dtCntStart.Value)

        'the question textbox in the grid
        Dim xy As New DataGridViewTextBoxColumn
        xy.HeaderText = "Question"
        Me.DataGridView1.Columns.Add(xy)

        'drop down list on grid
        Dim xx As New DataGridViewComboBoxColumn
        xx.Name = "YesNo"
        xx.Items.Add("Yes")
        xx.Items.Add("No")
        Me.DataGridView1.Columns.Add(xx)

        'the Answer Question
        Dim yx As New DataGridViewTextBoxColumn
        yx.HeaderText = "Answer"
        Me.DataGridView1.Columns.Add(yx)

        'the view button
        ' Add a button column. 
        Dim buttonColumn As New DataGridViewButtonColumn()
        buttonColumn.Name = "Requests"
        buttonColumn.Text = "Requests"
        buttonColumn.UseColumnTextForButtonValue = True
        DataGridView1.Columns.Add(buttonColumn)
    End Sub

thats it Ed, there is a datagridview control on the form

Many Thanks
Simon

Eddy Vluggen31-Mar-10 0:58

Eddy Vluggen

31-Mar-10 0:58

Simon_Whale wrote:
there is a datagridview control on the form

With or without the correct caption on the buttons? I'll send my version by mail Smile | :)

I are Troll Suspicious | :suss:

Re: datagridview button column - text not displaying

Simon_Whale31-Mar-10 1:00

Re: datagridview button column - text not displaying

31-Mar-10 1:00

There is no captions on the button for the code i sent but im after putting a caption on the button for the users to press

once again many thanks for your help

SImon

Simon_Whale31-Mar-10 1:09

Re: datagridview button column - text not displaying

31-Mar-10 1:09

Ed,

Thank you, you are a genius worked out the problem from your example.

During my experimentation / design layouts i wasn't adding a datasource to the grid. so it was displaying the first empty row.

I then created a simple list of integers and set that to the datasource of the datagridview and the text shows up on the button as expected.

could you assume this is how its suppose to work?

Many Thanks
Simon

Eddy Vluggen31-Mar-10 1:29

Eddy Vluggen

31-Mar-10 1:29

Simon_Whale wrote:
Thank you, you are a genius worked out the problem from your example.

Glad that it helped, but you're the one who worked it out Smile | :)

Simon_Whale wrote:
I then created a simple list of integers and set that to the datasource of the datagridview and the text shows up on the button as expected.

could you assume this is how its suppose to work?

It's one way that it can work - there's a lot of ways to fill a datagridview. And yes, it would be a good way; it's easy to read, easy to comprehend and thus, easy on maintenance.

I are Troll Suspicious | :suss:

What was the solution ? [Got it]

David Mujica13-Jul-10 3:57

David Mujica

13-Jul-10 3:57

I'm having the same problem. I read the postings, but I don't understand how this was solved.

Here is my code snipet:

Dim dgBtnCol As New DataGridViewButtonColumn()

dgBtnCol.Name = "SelBtn"
dgBtnCol.Text = "Select"

DataGridView1.Columns.Add(dgBtnCol)
Me.DataGridView1.DataSource = DT       ' The datatable is already populated with data at this point

The grid displays, but the caption on the button is nothing. How did the original poster solve this ?

I forgot to add the following line of code ....

<br />
dgBtnCol.UseColumnTextForButtonValue = True

Regards,
David

Simon_Whale13-Jul-10 4:04

13-Jul-10 4:04

Below is what i have working in a project

Private Sub CreateGrid(ByRef data As DataView)
    'the questionno
    Dim BrokerNo As New DataGridViewTextBoxColumn
    BrokerNo.HeaderText = "Broker Ref"
    BrokerNo.DataPropertyName = "brokerref"
    BrokerNo.AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
    Me.DataGridView1.Columns.Add(BrokerNo)


    'the question textbox in the grid
    Dim BrokersName As New DataGridViewTextBoxColumn
    BrokersName.HeaderText = "Broker Name"
    BrokersName.AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
    BrokersName.DataPropertyName = "brokername"
    Me.DataGridView1.Columns.Add(BrokersName)


    'drop down list on grid
    Dim BrokerStatus As New DataGridViewTextBoxColumn
    BrokerStatus.DataPropertyName = "status"
    BrokerStatus.HeaderText = "Status"
    BrokerStatus.Name = "Status"
    Me.DataGridView1.Columns.Add(BrokerStatus)


    'the Answer Question
    Dim Address As New DataGridViewTextBoxColumn
    Address.Name = "Address"
    Address.DataPropertyName = "address"
    Address.AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
    Me.DataGridView1.Columns.Add(Address)



    Dim TelNo As New DataGridViewTextBoxColumn
    TelNo.HeaderText = "Tel No"
    TelNo.DataPropertyName = "telno"
    TelNo.AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
    Me.DataGridView1.Columns.Add(TelNo)


    Dim buttonColumn As New DataGridViewButtonColumn()
    buttonColumn.HeaderText = "View"
    buttonColumn.Text = "View"
    buttonColumn.UseColumnTextForButtonValue = True
    buttonColumn.AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
    buttonColumn.FlatStyle = FlatStyle.Standard
    DataGridView1.Columns.Add(buttonColumn)


    DataGridView1.AlternatingRowsDefaultCellStyle.BackColor = Color.LightGreen
    DataGridView1.DataSource = data

  End Sub

As barmey as a sack of badgers

David Mujica13-Jul-10 4:05

David Mujica

13-Jul-10 4:05

Thanks for the quick reply.

After looking at my code more closely, I was missing the following:

<br />
dgBtnCol.UseColumnTextForButtonValue = True

My code is now working.

Thanks.

HomeSen5-Aug-10 23:17

HomeSen

5-Aug-10 23:17

Another workaround is to set the NullValue of the column to the desired text.

In a project of mine I have a DataGridView where the user can add rows manually. The text for the button didn't appear and nothing seemed to work. I then remembered that there is always a NullValue property and after I set this, the text appeared on the button Wink | ;)

DataGridViewCellStyle8.NullValue = "Some Text"
Me.AddStillstand.DefaultCellStyle = DataGridViewCellStyle8
Me.AddStillstand.HeaderText = ""
Me.AddStillstand.Text = "Some Text"

Just in case someone else is having a similar issue Wink | ;)

Re: datagridview button column - text not displaying [Solved]

Bob Stanneveld30-Sep-11 9:20

Bob Stanneveld

30-Sep-11 9:20

Hi,

I was pondering quite some time over this issue. The NullValue property did the trick Smile | :)

Thanks for posting this!

Kind regards,
Bob Stanneveld

Ajit Yagnesh23-Feb-11 1:38

Ajit Yagnesh

23-Feb-11 1:38

The code is working. just make sure that you apply this after assigning the datasource to your grid control.

Step 1. After assign datasource to grid.
// Add a button column.
DataGridViewButtonColumn buttonColumn =
new DataGridViewButtonColumn();
buttonColumn.HeaderText = "";
buttonColumn.Name = "Status Request";
buttonColumn.Text = "Request Status";
buttonColumn.UseColumnTextForButtonValue = true;

dataGridView1.Columns.Add(buttonColumn);

step2.

just after adding the columns register your click event like below.

// Add a CellClick handler to handle clicks in the button column.
dataGridView1.CellClick +=
new DataGridViewCellEventHandler(dataGridView1_CellClick);

step 3.

now on below event,
void dataGridView1_CellClick(object sender, DataGridViewCellEventArgs e)

make sure which button is clicked when multiple are there.

if (e.RowIndex < 0 || e.ColumnIndex !=
dataGridView1.Columns["Status Request"].Index) return;

// Retrieve the task ID.
Int32 taskID = (Int32)dataGridView1[0, e.RowIndex].Value;

// Retrieve the Employee object from the "Assigned To" cell.
Employee assignedTo = dataGridView1.Rows[e.RowIndex]
.Cells["Assigned To"].Value as Employee;

========================

Ref: http://msdn.microsoft.com/en-us/library/ms171619.aspx[^]

hello give me code

Re: datagridview button column - text not displaying [Solved]

Simon_Whale23-Feb-11 1:40

Office interop printing problem

23-Feb-11 1:40

Mate this was solved last year

As barmey as a sack of badgers

Dude, if I knew what I was doing in life, I'd be rich, retired, dating a supermodel and laughing at the rest of you from the sidelines.

mSh198530-Mar-10 22:06

mSh1985

30-Mar-10 22:06

Not really a visual basic problem, but i didnt know what forum to use, but my code is in vb.net Smile | :)

I have a program which has to print a bunch of documents, after printing a random number of documents this error is thrown: "Runtime.InteropServices.COMException (0x80010105): The server threw an exception. (Exception from HRESULT: 0x80010105 (RPC_E_SERVERFAULT)) "

I have written this testprogram which throws the same error

Imports wrd = Microsoft.Office.interop
    ...
    Private Shared moapp As wrd.Word.Application
    Private Shared odoc As wrd.Word.Document
    ...

Private Sub test()
moapp = New wrd.Word.ApplicationClass().Application
    For i As Integer = 0 To 100
        odoc = moapp.Documents.Add("\\bur-131.cmc.Be\Tools\INFORMATICA\ZZorg\bevestziek.doc")
        moapp.Selection.GoTo(What:=wrd.Word.WdGoToItem.wdGoToBookmark, Name:="bwNaam")
        With moapp.ActiveDocument.Bookmarks
            .DefaultSorting = wrd.Word.WdBookmarkSortBy.wdSortByName
            .ShowHidden = False
        End With
        moapp.Selection.TypeText(Text:="whoopie" & i.ToString())

        sOriginalPrinter = moapp.ActivePrinter
        moapp.ActivePrinter = "\\S31W40F\PRINT075"   
          
        With moapp.ActiveDocument.PageSetup
            .FirstPageTray = 261 '257
            .OtherPagesTray = 261 '257
        End With

moapp.Application.PrintOut(FileName:="", Range:=wrd.Word.WdPrintOutRange.wdPrintAllDocument, Item:= _
wrd.Word.WdPrintOutItem.wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wrd.Word.WdPrintOutPages.wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0)
           
        While moapp.BackgroundPrintingStatus = 0
        End While
            
        moapp.ActivePrinter = sOriginalPrinter

        odoc.SaveAs("C:\somelocation\temp.doc")
            
        odoc.Close()
     Next

        System.Runtime.InteropServices.Marshal.ReleaseComObject(odoc)
        odoc = Nothing
        moapp.Quit()
        System.Runtime.InteropServices.Marshal.ReleaseComObject(moapp)
        moapp = Nothing
        GC.Collect()
        GC.WaitForPendingFinalizers()
End Sub

Sometimes it throws the error when opening the document, the other time when printing the document..
The problem occurs on a Vista Enterprise SP1, Office 2003 and only on a HP Laserjet 2430dtn printer. On another type of printer the code runs perfect, also on a win2000 the code runs perfect. I tried installing other drivers for this printer, same problem...

Does anyone have an idea what i can try to solve or work around this problem. I know my code works when i close word and close the document and call the garbagecollector for each document, but then it takes about 17 seconds per document to print out...

If i don't print at all it also works Poke tongue | ;-P

Thanks in advance.

help with displaying hierarchical data in treeview in Visual Basic 2005

kim67830-Mar-10 21:10

kim678

30-Mar-10 21:10

Hi,

I am new to Visual Basic 2005. I need help in displaying the hierarchical data from the database in treeview and also update the tables back when a new node is added/deleted. I am using Oracle as background. Please help me to get some study material or sample code.

Newbie to VB

willwilco30-Mar-10 15:10

willwilco

30-Mar-10 15:10

How can I validate that a user has entered a correct phone number into a text box? The existing form uses a textbox to input the phone number. Apparently the only valid entries are in the following form: xxx-xxx-xxxx
I am not sure how to pass values into a procedure or function.
Can someone help?
Thank you

_Damian S_30-Mar-10 16:05

_Damian S_

30-Mar-10 16:05

If you are using VB.NET, you can use "regular expressions" to validate your field matches a particular format... if you are using VB6 (why??), then you will need to have an event behind your form that passes the textbox's value to a function for parsing.

I don't have ADHD, I have ADOS... Attention Deficit oooh SHINY!!

If you like cars, check out the Booger Mobile blog | If you feel generous - make a donation to Camp Quality!!

Wayne Gaylard30-Mar-10 20:38

Wayne Gaylard

30-Mar-10 20:38

As Damian S said, you can use regular expressions in VB.Net. Try this function :

Private Function ValidatePhoneNumber(ByVal StringToTest As String) As Boolean

    Dim expression As New Regex("(\(\d{3}\)|\d{3})[- ]\s?\d{3}[- ]\d{4}")
    Dim match As Match = expression.Match(StringToTest)
    If match.Success Then
        Return True
    Else
        Return False
    End If

End Function

Then you can call your function like this :

If TextBox1.Text <> String.Empty Then
       If ValidatePhoneNumber(TextBox1.Text) Then
           MsgBox("Correct phone number.")
       Else
           MsgBox("Not valid phone number")
       End If
   End If

If you want to learn more about regular expressions then I recommend you download a copy of Expresso (google it). It is an excellent tool for learning them.

Hope this helps.

willwilco31-Mar-10 13:41

willwilco

31-Mar-10 13:41

Thank you Damian. I will try your example and look at regular expressions.

The Man from U.N.C.L.E.31-Mar-10 7:07

The Man from U.N.C.L.E.

31-Mar-10 7:07

Regular expressions are the best way to go, as you can then embed some real phone number rules such as area code validation and so on.

Alternatively if you are only dealing with the one format allowed then I suggest you use a masked textbox so the end user can't even enter the wrong format.

If you have knowledge, let others light their candles at it.
Margaret Fuller (1810 - 1850)
[My Articles] [My Website]