|
Messagebox.show runs modally and therefore will stop the keyup firing. If you use debug.writeline, or set the text of a label, you see the events firing, as in this code example below.
Create a form with a textbox (Textbox1) and three labels (Label1, Label2, Label3)
Add the following code
Private Sub TextBox1_KeyDown(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
Me.Label1.Text = "KeyDown Fired : " & e.KeyData.ToString
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Me.Label2.Text = "KeyPress Fired : " & e.KeyChar
End Sub
Private Sub TextBox1_KeyUp(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
Me.Label3.Text = "KeyUp Fired : " & e.KeyData.ToString
End Sub
|
|
|
|
|
Hi,
We are trying to develop an tool that renders rtf from XML.
All things work fine, the styled view is OK
The major problem is rendering of table
The table is rendered correctly but the text donot wrap in the cell it flows across the boundaries.
From the search on Microsoft sites we found that the RichEdit dll version 4.1 supports it. It uses MSFTEdit.dll to solve the problem
But I don't know why the RichTextBox Control in System.Windows.Forms namespace in .Net is not functioning corectly. It looks like the control still refers to old version of DLL
Can someone help me in solving this problem. As it has come to a stage where the project cannot proceed and may be canned if this doesn't work
More details
OS: Windows XP and Windows 2000
.Net Framework: 1.1
Visual Studio.Net Version: 2003
Looking for a solution!!
Regards,
Nasir
|
|
|
|
|
The .NET RichTextBox is just a wrapper around the RichEdit common control and XP as well as 2000 have "Rich Text Edit Control, v3.0" included in RichEd20.dll in WinNT\System32. So you'll only get what these DLLs can deliver.
Office XP installs version 4.0 of the Rich Text Edit Control in common files\Microsoft Shared\Office10, don't know about Office 2003...
I also had a version dependent problem with the RichTextBox (Undo/Redo buffer gets deleted when accessing the Text property) and could solve it by copying the more recent version of Riched20.dll into my program's executable path. But I assume this might not be an option for a commercial app 
Regards,
Mav
|
|
|
|
|
I have an encrypted excel file that I need to read into a string so I can decrypted and write it back out. Everything has been working, except when running under mulit-byte languages such as: Japanese. I am almost sure that it has to do with the non-unicode flag set the the regional and language options under the advanced tab. Could someone point me in the right direction. Here is my sample code.
Dim fNum As Integer
Dim fileNameFrom As String
Dim fileNameTo As String
fileNameFrom = "C:\R00231090.xls"
fileNameTo = "C:\R00231090.mtp"
fNum = FreeFile()
FileOpen(fNum, fileNameFrom, OpenMode.Binary, OpenAccess.Read)
fileText = New String("", FileLen(fileNameFrom))
FileGet(fNum, fileText)
FileClose(fNum)
'fileText = "Call Decryption Method" Pretend that you called this.
fNum = FreeFile()
FileOpen(fNum, fileNameTo, OpenMode.Binary, OpenAccess.Write)
FilePut(fNum, fileText)
FileClose(fNum)
Make sure that the Language for non-Unicode programs is set to Japanese if it is not then it works find.
Thanks
Stephen
|
|
|
|
|
Hello everyone,
Once again, the newbie of programming has come to beseech your help. For my lovely Tic Tac Toe game that I am developing within VB.NET 2003 - I wanted to give my players Avatars (graphics that displays the players picture or character). I started with making a form to act as the Avatar Gallery.
What I want to be able to do is take the graphic that the player selects (using a radio button) and display it on my Game Form (frmGame). I had no idea how to do this, so, I started playing around. I made a Module and public'ed a PictureBox. I created a button that stated when clicked to take the picture of the forms PictureBox and transfer it to the Module- Public PictureBox.
At first it worked, and all was good - though after that, it stopped. I don't know what exactly I did to change things, though now simply figure I was doing it wrong in the first place. So, now I come before you to ask what a good method is for creating a picture gallery that you can select the picture to display on another form.
Any help is appreciated - articles, threads, and so forth. Thanks!
~Achithyn
|
|
|
|
|
Hmm, well, I am guessing this either cannot be done, no one knows how to do it, or, this thread was simply looked over. I have looked around some more though can't seem to be able to answer my question :S - If any of you know how to do this, please let me know. Thanks!
~Achithyn
|
|
|
|
|
Oi, sorry guys - I figured it out and it was a very simple problem. Thanks for the help on my other problems - I will make sure I don't ask stupid questions in the future. 
~Achithyn
|
|
|
|
|
I'm having trouble populating a combo box with all the rows for a certain field in an Access database. Right now I can use a Currency Manager to cycle through all the individual records on my form, I just can't get all the rows for a given column to come up in the combo box. Here is an example of my problem. The only thing on the form here is cboComboBox:
Imports System.Data.OleDb
Public Class Form1
Inherits System.Windows.Forms.Form
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim mcnConn As OleDbConnection
Dim mdsDSet As New DataSet
Dim mcmCurMang As CurrencyManager
Dim mvueDatVue As DataView
Dim mdaAdapter As OleDbDataAdapter
Dim strConnectionString As String
strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=DUBookstore2000.mdb"
mcnConn = New OleDbConnection(strConnectionString)
Dim strSQLStatement As String
strSQLStatement = "SELECT Name FROM Publishers"
mdaAdapter = New OleDbDataAdapter(strSQLStatement, mcnConn)
mdaAdapter.Fill(mdsDSet, "Publishers")
mvueDatVue = New DataView(mdsDSet.Tables("Publishers"))
Me.cboComboBox.DataBindings().Add("Text", mvueDatVue, "Name")
mcmCurMang = CType(Me.BindingContext(mvueDatVue), CurrencyManager)
End Sub
End Class
Of course this isn't my whole form, like I said it just gives an illustration of the problem I'm having. Thanks in advance for the help!
-Steve
|
|
|
|
|
Change it to this:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim mcnConn As OleDbConnection
Dim mdsDSet As New DataSet
Dim mcmCurMang As CurrencyManager
Dim mvueDatVue As DataView
Dim mdaAdapter As OleDbDataAdapter
Dim strConnectionString As String
strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=DUBookstore2000.mdb"
mcnConn = New OleDbConnection(strConnectionString)
Dim strSQLStatement As String
strSQLStatement = "SELECT Name FROM Publishers"
mdaAdapter = New OleDbDataAdapter(strSQLStatement, mcnConn)
mdaAdapter.Fill(mdsDSet, "Publishers")
mvueDatVue = New DataView(mdsDSet.Tables("Publishers"))
Me.cboComboBox.DataSource = mvueDatVue
Me.cboComboBox.ValueMember = "Name"
'mcmCurMang = CType(Me.BindingContext(mvueDatVue), CurrencyManager)
End Sub
progload
|
|
|
|
|
Thanks, that helped! Unfortunately though, now that has led me to another problem. The sub above is from an application that uses textboxes to display individual fields from an Access table. There is no grid on the form, each record is displayd via the textboxes along with one combobox (which displays a particular book's publisher). There are two buttons on the form to let the user go forward or backward through the individual records on the form. Pretty striaghtforward stuff.
The problem I'm running into now is that, since that combobox is populated, it is simply populated with a list of publishers that are displayed as one would move through the record set. Like this....here's what the combo box should display:
Company A
Company B
Company C
Company D
Okay. Let's say there are 24 records in the table in the Access database. Right now, that combo box is showing this:
Company A
Company D
Company D
Company C
Company A
Company B
.....
and so on, depending on what book is linked to what publisher, as we go through the records. So, how can I tweek that code above to show a non-repeating list of the publishers? Thanks in advance.
-Steve
|
|
|
|
|
Change your SQL statement to:
strSQLStatement = "SELECT DISTINCT Name FROM Publishers ORDER BY Name"
|
|
|
|
|
That didn't really change anything. Let me post a little more code:
This is my sub to bind the textboxes and that combobox.
Private Sub BindData()
'**********************************
'Purpose: Binding the labels, txtboxes, and
'comboboxes on the form to the data
'
'Outputs: Bound display controls to the data and the currency manager
'
'Author: Steve Swanson
'Date: July 26, 2004
'
'**********************************
Dim strSQLPublishers As String = "SELECT DISTINCT Name FROM Publishers"
Try
'create a list of publisher Name's based on PublisherID
mdaPublishers = New OleDbDataAdapter(strSQLPublishers, mcnDuBookstore2000)
mdaPublishers.Fill(mdsDuBookstore2000Books, "Publishers")
cboPublisher.DataSource = mvueDuBookstore2000
cboPublisher.ValueMember = "Name"
'bind the txtboxes on the form to the corresponding columns in the
'DUBookstore2000.mdb database
Me.lblBookID.DataBindings.Add("Text", mvueDuBookstore2000, "BookID")
Me.txtTitle.DataBindings.Add("Text", mvueDuBookstore2000, "Title")
Me.txtAuthorName.DataBindings.Add("Text", mvueDuBookstore2000, "AuthorName")
Me.cboPublisher.DataBindings.Add("Text", mvueDuBookstore2000, "Name")
Me.txtPrice.DataBindings.Add("Text", mvueDuBookstore2000, "Price")
Me.txtBooksOnHand.DataBindings.Add("Text", mvueDuBookstore2000, "BooksOnHand")
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
'use the currency manager to control the iteration through the rows
'in the database
mcmDuBookStore2000Books = CType(Me.BindingContext(mvueDuBookstore2000), CurrencyManager)
End Sub
Hope this helps, I can post more if needed.
|
|
|
|
|
Try it again, you forgot the last part of the sql statement:
strSQLStatement = "SELECT DISTINCT Name FROM Publishers ORDER BY Name"
|
|
|
|
|
Hello!
This is my code. My Datagrid populates all null values.I need help to populate the Datgrid
Thanks
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Dim myConnectionString As String = "user id=dbusdev;data source=DBUSDV"
Dim oracleconnection1 As New OracleClient.OracleConnection(myConnectionString)
oracleconnection1.Open()
Dim OracleDataAdapter1 As New OracleClient.OracleDataAdapter(" SELECT * FROM TPROFILE", oracleconnection1)
Dim DataGrid1 As New DataGrid
Dim DataSet1 As DataBase.DataSet1
DataSet1 = New DataBase.DataSet1
OracleDataAdapter1.Fill(DataSet1)
DataGrid1.DataSource = DataSet1
DataGrid1.DataMember = "DataSet1.TPROFILE"
DataGrid1.SetDataBinding(DataSet1, "DataSet1.TPROFILE")
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
oracleconnection1.Close()
End Try
dnagpaul
|
|
|
|
|
Hello everyone. I need help w/ textboxes to update an Access database. For a first name textbox, I have the following code to update the changed text.
Private Sub txtClientFirstName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtClientFirstName.TextChanged
Dim commandBuilder As New OleDb.OleDbCommandBuilder(dataAdapter)
dt.Rows(rowIndex)("First_Name") = txtClientFirstName.Text
Try
commandBuilder.DataAdapter.Update(dt)
'dataAdapter.Update(dt)
'commandBuilder.Dispose()
'dataAdapter.Dispose()
Catch exp As InvalidOperationException
End Try
This code will allow the user to alter the contents of the text box, but it will not move those changes to the database. What am I doing wrong?
|
|
|
|
|
Hello!
This is my code. My Datagrid populates all null values.I need help to populate the Datgrid
Thanks
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Dim myConnectionString As String = "user id=dbusdev;data source=DBUSDV;password=dbusdev"
Dim oracleconnection1 As New OracleClient.OracleConnection(myConnectionString)
oracleconnection1.Open()
Dim OracleDataAdapter1 As New OracleClient.OracleDataAdapter(" SELECT * FROM TPROFILE", oracleconnection1)
Dim DataGrid1 As New DataGrid
Dim DataSet1 As DataBase.DataSet1
DataSet1 = New DataBase.DataSet1
OracleDataAdapter1.Fill(DataSet1)
DataGrid1.DataSource = DataSet1
DataGrid1.DataMember = "DataSet1.TPROFILE"
DataGrid1.SetDataBinding(DataSet1, "DataSet1.TPROFILE")
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
oracleconnection1.Close()
End Try
dnagpaul
|
|
|
|
|
did you try to directly update the text boxes with something like:
txtTextBoxName.text = CStr(datagrid1(rowIndex)("Databasse_column_Name"))
where rowIndex is an integer defined in either globally or in your sub-function.
|
|
|
|
|
No.I did not use Text Boxes. Using the property of DataAdapter and "preview Data" and the "Fill DataSet" seems to populate it ........
Thanks
Dolly
|
|
|
|
|
I got it to work........
Thanks
|
|
|
|
|
I'm using vb.net to develop windows and web applications, and I need a really good datagrid. I need to be able to colorize individual cells, have a variety of columnStyles, and hopefully have the ability to drill though an OLAP cube(but not absolutely necessary)
I've been looking at FarPoint, ComponentOne, and Exceed. Can anyone make a recomendation as to what they think is the best?  easiest to program?  contains the most features, etc? 
Thanks
Chris
Internal Software Developer
|
|
|
|
|
|
I have a VB 6.0 DLL application (not .NET) that monitors an FTP directory at a specific interval. When a file gets place in the directory the DLL then moves it to another location and puts it under configuration Management control. This all seems to work fine.
Recently though the files being transferred from an AIX system to the NT system are becoming quite large, approx 20Mb. My problem is that the monitoring of a file in the FTP directory can coincide with a file actually appearing. This can then cause the scenario where the file is being moved from the FTP directory before the FTP copy has completed, and therefore I get files where the size is seriously reduced. Since these files are Zip files it means that I then get a corruption error when I try to unzip the files.
Is there any way that I can check to ensure that a file is not in the middle of being copied before I move it.
I noticed that there was a MoveFileEx Win32 API where you can state that the move function will only complete once the file has been successfully transferred, but that doesn't really help me out here as the file is coming from an AIX box and not from another NT directory.
Simes
|
|
|
|
|
You have to make sure that your FTP Server software support file locks during an upload. You can test this by trying to open the file in your app while it is being uploaded, using Deny Share Read and Deny Share Write. If your able to open the file while it's being uploaded, there is no way you can determine when the transfer from the AIX box has completed.
You'll have to write your own copy function that supports reading a file to the end and writing whatever it finds, then it should sit there and wait until more data shows up, then copy the new chunk of the file. But, the trick is to wait a specified time from the last chunk of data that was read. When that timeout finally occurs, say 1 minute with no new data showing up, your code should assume that the file transfer is complete, then close the files and return.
I hope I explained everything OK...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi all,
I was just wondering if anyone could quickly knock up an app that knows when a stupid person has sat infront of my software. What i need it to is recognise the person from speed, certain key strokes, the order they do things, etc, (it could even remember these people).
Then it needs to make an intelligent decision on there level of ability and casually advise them of their level and act appropriately, suggestions include.....
shutting down windows with no warning whatsoever,
increasing font sizes and enlarging pixels on pictures,
display a 'stupid' diagram,
a small monkey appearing on the screen,
advising them of the decision made,
printing their whole c drive in some kind of list,
pointing and laughing,
if they have used it before and been caught out - advise them of this then do the above.
If you could have it on my desk by monday that would be great
Thanks
|
|
|
|
|
Uhhhh...whatever...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
