|
I've been trying to override the ListView's Paint event as I need to handle this event in my Windows Forms Project.
I've managed to get the Paint event to fire (as desired) but any items that I add to the ListView are not visible. I am completely clueless when it comes to custom draw controls but I suspect that as I'm overriding the paint event I'm going to need to draw the items I add.
Can anyone point me in the right direction in terms of what I need to do to be able to see the ListViewItems that I add to my custom ListView?
Here's the code that I'm using to expose the paint event.
Thanks,
Karl
<br />
Imports System<br />
Imports System.Drawing<br />
<br />
Public Class MyCustomListView<br />
Inherits ListView<br />
<br />
Public Sub New()<br />
<br />
Me.SetStyle(ControlStyles.UserPaint, True)<br />
Me.SetStyle(ControlStyles.DoubleBuffer, True)<br />
Me.SetStyle(ControlStyles.AllPaintingInWmPaint, True)<br />
<br />
End Sub 'New<br />
<br />
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)<br />
<br />
MyBase.OnPaint(e)<br />
<br />
End Sub 'OnPaint<br />
<br />
End Class 'MyCustomListView<br />
|
|
|
|
|
Are you saying that your trying to add items to the ListView inside the Paint event? (Not a good idea BTW!)
Or if your just trying to custom paint the thing, search the artciels for "custom listview" and you'll come up with a few examples. They might have what you're looking for.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Dave Kreskowiak wrote:
Are you saying that your trying to add items to the ListView inside the Paint event? (Not a good idea BTW!)
I'm not trying to add items inside the Paint event. I'd like to get away from that as much as possible. I don't even want to custom paint the thing (if I can get away with that).
All I wanted to do was to expose the ListView's Paint event but ever since I did that (using the code shown in my initial thread) any items that I add to the listview don't show up.
If I comment out the line below, any items I add show up, but then of course the Paint event is not exposed anymore:
<br />
Me.SetStyle(ControlStyles.UserPaint, True)<br />
|
|
|
|
|
hi there,
i have a asp page which display record from the database in my database there are 8 record i sorted the record and display only last 3 record but my srno is same as in database that " 3,4,5" i want my srno to display as "1,2,3" can any body help me
this is code
<%=(1)%>
"><%=rst("fileName")%> <%=rst("reportMonth")%> <%=rst("reportYear")%> <%=rst("status")%>regard
ybasha
|
|
|
|
|
check rst.recordcount plus where is the while loop for your code
while not rst.eof
<td><%=(1)%></td>
<td><%=rst("fileName")%></td>
<td><%=rst("reportMonth")%></td>
<td><%=rst("reportYear")%></td>
<td><%=rst("status")%></td>
rst.movenext
wend
|
|
|
|
|
Hi I am learning VB.Net. Right now my knowledge is all in bits and pieces I want to put all this together so I want ot create a small project that covers all the features of vb.net. Do any of you have guidelines to any such project for a vb.net beginner.
Thanks
|
|
|
|
|
A good beginner level project is an address book.
Use a treeview/listview design. Treeview has a top node for each alphabet letter, and names under each letter. List view shows details when you click on a name. Adda menu and a toolbar. Create forms to allow you to add/edit data. Use a small Access database as the data source. Make sure it is normalized. If you don't know what that means, time to learn.
This is a good beginner level exercise that uses a variety of controls and their events, requires field level validation, data binding, data access, and sharing data between forms.
Plus you can actually use it when you are done.
|
|
|
|
|
Ok, I am planning out right now a new VB.Net application and am looking for suggestions.
I will be storing the username & passwords inside a SQL table and need suggestions or pointers for code to handle the read/write and decription for verification of the passwords.
This is a system being developed for the Federal Government so a serious level of security is required for this app.
I have been looking through the Microsoft Enterprise Patterns & Practices but am not sure if this is the way to go.
Suggestions?? or Ideas??
David @ Premier
You are only as good as your last project.
|
|
|
|
|
|
Hi All. I have 2 windows application build with Visual Studio Enterprise Architect.
1st one is the actual application and the 2nd one is the installation project.
1st application utilizes 2 crystal 10 reports build with CR10 that comes with the studio.
Then I obfuscate this project and place the exe in 2nd - installation project. After installation everything
works except the crystal reports. I get an error stating: "can not find the report in the manifest file.
Please recompile and try again"
BUT if I recompile WITHOUT obfuscating the project and install it everything works!!!
ANY IDEAS??? What is wrong??
|
|
|
|
|
I'm (beginner) programming a web service with win application, both in VB.NET (VStudio.NET 2003). How can I send messages from Debug class used in web service to output (debug) window in VS? Messages from application side appear in this window.
|
|
|
|
|
I'm getting an error when I try to call my function getPMOhistory().
The error is:
An unhandled exception of type 'System.InvalidOperationException' occurred in system.data.dll
Additional information: ExecuteReader: Connection property has not been initialized. I've bolded the line that is causing the problem.
I've created a class that handles all my data requests and it looks like this:
Imports System.Data
Imports System.Data.OleDb
Public Class DataBroker
Dim gConn As OleDb.OleDbConnection
Dim gDataReader As OleDb.OleDbDataReader
Dim gobjDBCommand As OleDbCommand
Dim goData As OleDbDataReader
Dim gstrSQL As String
Dim gstrPETConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\PET\Data\pet.mdb;User Id=;Password=;"
Dim gstrPMOConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\PET\Data\sr.mdb;User Id=;Password=;"
Const PET As String = "PET"
Const PMO As String = "PMO"
Dim gstrError As String = Nothing
Public Function GetProjectTypes() As DataSet
'If Connect(PET) Then
'gstrSQL = "Select *"
'End If
End Function
Private Function Connect(ByVal strDB As String) As Boolean
If strDB = PET Then
gConn = New OleDbConnection(gstrPETConnString)
Else
gConn = New OleDbConnection(gstrPMOConnString)
End If
Try
gConn.Open()
Connect = True
Catch
Me.ErrorMessage = Err.Number & " " & Err.Description
Connect = False
End Try
End Function
Private Function DisConnect(ByVal strDB As String) As Boolean
gConn.Close()
End Function
Public Function GetPMOHistory() As Boolean
gstrSQL = "SELECT * FROM QUERY1"
gobjDBCommand = New OleDbCommand(gstrSQL, gConn)
If Connect(PMO) Then
QueryResults = gobjDBCommand.ExecuteReader()
Else
Me.ErrorMessage = "Unable to connect to database. Please try again later"
End If
End Function
Public Property ErrorMessage() As String
Get
ErrorMessage = gstrError
End Get
Set(ByVal Value As String)
gstrError = Value
End Set
End Property
Public Property QueryResults() As OleDbDataReader
Get
QueryResults = goData
End Get
Set(ByVal Value As OleDbDataReader)
goData = Value
End Set
End Property
Public Sub New()
End Sub
End Class
|
|
|
|
|
Try moving the gobjDBCommand = New OleDbCommand(gstrSQL, gConn) line into the body of the IF statement like this...
Public Function GetPMOHistory() As Boolean
gstrSQL = "SELECT * FROM QUERY1"
' gobjDBCommand = New OleDbCommand(gstrSQL, gConn) ' FROM HERE
If Connect(PMO) Then
gobjDBCommand = New OleDbCommand(gstrSQL, gConn) ' TO HERE
QueryResults = gobjDBCommand.ExecuteReader()
Else
Me.ErrorMessage = "Unable to connect to database. Please try again later"
End If
End Function
The variable gConn is not initialized until after function Connect() is called so the instantiation of gobjDBCommand is not valid until this time.
...Steve
|
|
|
|
|
Thanks steve.
A while after I posted... I figured it out!
Thanks!
|
|
|
|
|
I am currently trying to convert a vb6 client server program to a .net web form using vb.net.
The client server vb6 program uses the webbrowser object to open a browser window and then post some data to it using the following code.
webBrowser.Navigate2 URL, 0, "BrowserWindow", "", ""
it then posts data to it using
Screen.MousePointer = vbHourglass
'Write the byte-array into a variant
varPostData = bytpostdata
'Create the Header
strHeader = "Content-Type: application/x-www-form-urlencoded" + Chr(10) + Chr(13)
'Post the data
webBrowser.Navigate2 URL, 0, "BrowserWindow", varPostData, strHeader
Can someone give me the equivalent code to be used in a .net web form, I do not mind wether it is server side code or javascript?
Any help will be appreciated?
|
|
|
|
|
Doing a simple book exercise - SQL Connections 101 stuff. I got my data showing up and everything was going fine, then I realized I'd forgotten a table. I went back and added it to the database.
Try as I might, I can't get that table to appear in VisStudio/VB.NET's Data Adapter Configuration Wizard (Query Builder: Add Table). All the others do, but not that one. It's got permissions, it's even got relationships. I've even started from scratch, doing everything again in a new project. That table will not show up in the list with the others. What gives?
Have I forgotten to set some property of that table that I did with the others? Does the connection have some sort of cached record of the database tables that I should purge?
________________________________________________________________________
Dave
Y10K bug! Let's not get caught with our pants down **AGAIN**! (DC 02002)
|
|
|
|
|
How does this work?
I want to have a description of the field that the mouse hovers over.
Example could be, when the mouse hovers over a text box, want a description to say something rather than a message box appearing or a description in the status bar.
|
|
|
|
|
Have you tried the tooltip control?
|
|
|
|
|
I am working on a 3 tier application. We have a UI, Remoteserver and a database server. The application is working fine till any error occurs on Tier 29remoteserver) or Tier 3(error raised by an Sp in database server). The error messages are not propagated from Remoteserver to UI, instead we get the error message "Server encountered an internal error. For more information, turn on customErrors in the server's .config file."
Please send me a solution to this as soon as possible.
Thank you in Advance.
|
|
|
|
|
Is it possible to set the DateTimePicker control to blanks or no value at run time? Thanks.
I found my answer. Doing a Google search returns amazing results.
|
|
|
|
|
Probably not.
But the standard way to do this is:
set CheckBox property to true, this will show checkbox alongwith dtpicker, u can check or uncheck to do so.
Atul.
|
|
|
|
|
dptalt wrote:
I found my answer. Doing a Google search returns amazing results.
What did you type in to search? I am having the same issue and have only found controls that cost money. Is there an answer?
|
|
|
|
|
I have a program which reads a series of employee names and ID numbers into a dataset and then sets the datasource of a combobox to that dataset. Below is some of the logic:
.cbxEEName.DataSource = ds.Tables("EmpmastTbl")
.cbxEEName.ValueMember = dt.Columns("EmpID").ToString
.cbxEEName.DisplayMember = dt.Columns("FullName").ToString
.cbxEEName.Visible = True
Since the list of names include both active and terminated employees, is there a way to bold the names of an employee who is active, and leave terminated employees as a regular font?
Any ideas are appreciated?
Lost in the vast sea of .NET
<a href="http://www.komputing.com/Pricelist.html">Visit my website at www.komputing.com</a>
|
|
|
|
|
I am writing a simple program to arrange data into a spreadsheet. Easy enough. However, when I store mult-selected items from a listbox, wingdings appear after each item.
I have a "for" loop that pulls each item out of the listbox. I need those items stored in a single cell. Each item is independent from one another. Therefore, I used VB's "new line" call, vbCrLf or vbNewLine. When I do this, it puts wingdings at the end of each entry within the cell. I have tried to trim the character off, but that did not work. Any suggestions would be much appreciated. Thanks.
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
ws.Cells(iRow, 3).Value = ws.Cells(iRow, 3).Value + ListBox1.List(i) + vbCrLf
End If
Next
This loops through each selected item in the listbox and displays the data in a single cell.
Dizzle
|
|
|
|
|
Dizzie, Like I said in my original reply earlier on this board, the vbCrLf character that you're using is the cause of the 'wingdings'. I presume you want something like this in the cell...
value1 value2 value3
or
value1<br />
value2<br />
value3
Both can be achieved by this change to your code...
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
ws.Cells(iRow, 3).Value = ws.Cells(iRow, 3).Value & ListBox1.List(i) & " " ' that is a single space
End If
Next
The latter format is obtained by also reducing the cell width and permitting the text to wrap within the cell (an Excel format setting).
...Steve
|
|
|
|