|
This is way too much code to post. Ambiguous usually means that the name is defined more than once in the same scope in your code.
|
|
|
|
|
how to cut an image in picturebox in VB.Net
like we do in paint setect a part of image and cut it
and keep it in memory........
wana to be a best coder
|
|
|
|
|
Use DrawImage method of Graphics object.
You may try following code –
-----------Start Code----------------
'Create a bitmap object where our picture will be stored
Dim a As Bitmap = New Bitmap(400, 300)
'Create a Graphics object g
Dim g As Graphics = Graphics.FromImage(a)
'Rectangle which has to be cut from the picture
Dim rect As Rectangle = New Rectangle(0, 0, a.Width, a.Height)
'Cut the portion of the image which we have in picturebox1
g.DrawImage(Me.PictureBox1.Image, 0, 0, rect, GraphicsUnit.Pixel)
'Put bitmap image in clipboard,
My.Computer.Clipboard.SetImage(a)
'this image may be accessed using My.Computer.Clipboard.GetImage
---------------End Code------------
I hope this helps .
- Dave.
Dave Traister,
ComponentOne LLC.
www.componentone.com
|
|
|
|
|
In VB.Net how we will convert Image into Text
for example
we have an Image (JPEG) file in which some text is written like (ABCD)
then it should return a String "ABCD".
wana to be a best coder
|
|
|
|
|
You need to write or buy an OCR program. The fact that you're asking, makes it unlikely that you'd be able to write one.
Christian Graus - Microsoft MVP - C++
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
Ok, so, I have a VB2005 Program linked to a database. I also have a datagrid on the form that displays a certain table in the database. Now, randomly the datagrid will rearrange the sort order for no apparent reason. I use PKeys that run off AutoNumbers, so you'd think it would not be that hard and 99.9 % of the time the code will load the correct order, 1,2,3,4,5,6,7,etc... But once in a while it will load up not just backwards or something but just all out of order, 2,5,4,1,6,3,7, etc...
The fill code looks like this :
"Me.TblFruitTableAdapter.Fill(Me.DbScreenDataSet.tblFruit, DatePro)"
Its pretty much computer generated except for i added in a variable for the Date of Production so that when the program loads it only grabs the records for that day, but the records get put in, in order so that day 1 hour 1 is record 1 of the day.
Can anyone explain why 99.9 % of the time it loads the records correctly but once in awhile it will load them distorted?
|
|
|
|
|
Does your SQL have an order by statement ?
Christian Graus - Microsoft MVP - C++
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
I'm sorry I forgot to mention that i am using MS Access for my database purposes.
|
|
|
|
|
OK, so build your SQL on each keypress, and filter your data direct from the DB.
Christian Graus - Microsoft MVP - C++
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
An SQL query is not guaranteed to return records in a specific order unless told to with an ORDER BY clause in the SELECT statement.
|
|
|
|
|
I have a datagrid with a checkbox column. When a user checks a box, leaves the row, re-enters the row and unchecks the box get the following error:
Operator '=' is not defined for type 'DBNull' and type 'Boolean'
The value of the checkbox changes from true or false to DBNull.
How do I avoid this?
Edit/Delete Message
|
|
|
|
|
Without seeing the actual bit of code that is throwing the error, I am guessing that it is the checkbox's CheckedChanged event.
So you might have something like this:
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged<br />
If CheckBox1.Checked = True Then<br />
'something happens here<br />
End If<br />
End Sub
A checkbox control has three states: Checked, Unchecked and Indeterminate.
Simply avoid the = operator, rather use the <> operator:
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged<br />
If CheckBox1.Checked <> False Then<br />
'something happens here<br />
End If<br />
End Sub
Or a little better even (I am not sure whether this works in VB6 though):
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged<br />
If CheckBox1.CheckState = CheckState.Checked Then<br />
'something happens here<br />
End If<br />
End Sub
Otherwise the DBNull error is only thrown by datasets, recordsets, etc. So you might have something like this:
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged<br />
If CheckBox1.Checked = False Then<br />
SomeOtherCheckBox.Checked = DataSet1.Tables(0).Rows(0).Item("SomeOtherBooleanColumnInTheSameTable")<br />
End If<br />
End Sub
In such a case it is wise to use:
If IsDBNull(DataSet1.Tables(0).Rows(0).Item(0)) = False Then<br />
'Something happens here<br />
End If<br />
Good luck,
Johan
My advice is free, and you may get what you paid for.
|
|
|
|
|
Here is the code causing the problem:
Private Sub grdSelect_CellValueChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles grdSelect.CellValueChanged<br />
If Not mtfLoading Then<br />
checkCell = CType(grdSelect.Rows(e.RowIndex).Cells("Select"), DataGridViewCheckBoxCell)<br />
<br />
If checkCell.Value = True Then<br />
Call EnableObjects(True)<br />
Else<br />
Call EnableObjects(False)<br />
End If<br />
End If<br />
End Sub<br />
checkCell.value gets set to DBNull when rechecked whether it was true or false to begin with and whether or not leaving row.
Since this is a DataGridViewCheckBoxCell I can't use .checked, .checkedChanged, or .checkState.
|
|
|
|
|
You can just add a IsDBNull check before you assign checkCell:
Private Sub grdSelect_CellValueChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles grdSelect.CellValueChanged<br />
If Not mtfLoading Then<br />
If IsDBNull(grdSelect.Rows(e.RowIndex).Cells("Select")) Then<br />
checkCell = False 'or True, your choice<br />
else<br />
checkCell = CType(grdSelect.Rows(e.RowIndex).Cells("Select"), DataGridViewCheckBoxCell)<br />
End If<br />
If checkCell.Value = True Then<br />
Call EnableObjects(True)<br />
Else<br />
Call EnableObjects(False)<br />
End If<br />
End If<br />
End Sub
By the way, you could write this same code more efficiently like so:
Private Sub grdSelect_CellValueChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles grdSelect.CellValueChanged<br />
If Not mtfLoading Then<br />
If IsDBNull(grdSelect.Rows(e.RowIndex).Cells("Select")) Then<br />
Call EnableObjects(False) 'Or True, your choice<br />
'Or just do nothing, and simply wait for this event to be triggered again.<br />
else<br />
Call EnableObjects(CType(grdSelect.Rows(e.RowIndex).Cells("Select"), DataGridViewCheckBoxCell))<br />
End If<br />
End If<br />
End Sub
Hope this helps,
Johan
My advice is free, and you may get what you paid for.
|
|
|
|
|
I changed it a little to get it to work for me:
If Not mtfLoading Then<br />
If IsDBNull(grdSelect.Rows(e.RowIndex).Cells("Select").Value) Then<br />
Call EnableObjects(False)<br />
Else<br />
If CType(grdSelect.Rows(e.RowIndex).Cells("Select"), DataGridViewCheckBoxCell).Value = True Then<br />
Call EnableObjects(True)<br />
Else<br />
Call EnableObjects(False)<br />
End If<br />
End If<br />
End If<br />
<br />
Thank you for your help!!
|
|
|
|
|
I'm new at this but I'm trying. The UnLoad Me happens before the Function call talk has completed. How do I make UnLoad Me wait??
frmSpeak [Form]
spkSpeak [DirectSS]
txtText [TextBox]
Function talk()<br />
Open "c:\webster\1\say.txt" For Input As 1<br />
txtText.Text = Input(LOF(1), 1)<br />
Close 1<br />
spkSpeak.AudioReset<br />
spkSpeak.Speak txtText.Text<br />
End Function<br />
<br />
Private Sub Form_Load()<br />
Call talk<br />
'UnLoad Me<br />
End Sub
Robert, still trying
|
|
|
|
|
Repeating the same question doesn't change the answer.
The only way to make it "wait" without getting any kind of status or if the call doesn't block is to put the thread to sleep (VB6 doesn't have a native way of doing this), but that might also sleep the speech object you're using too.
Check into the API Viewer and look for the Sleep function. This will put your code to sleep, but you may not like the results.
Basically, unless the call blocks or there is an alternate method of using the library (I'm not familiar with it), you have to put in a loop that does nothing for an arbitrary amount of time. So, you might run into a situation where the speach finishes quicker than your delay and the user is sitting there waiting for nothing.
|
|
|
|
|
Why don't you use a Main function?
Dim spkSpeak as new YourSpeakControlClass
Sub Main
Open "c:\webster\1\say.txt" For Input As 1
txtText.Text = Input(LOF(1), 1)
Close 1
spkSpeak.AudioReset
spkSpeak.Speak txtText.Text
While IsTalking
DoEvents
End While
End Sub
Hope it helps.
|
|
|
|
|
MohammadAmiry wrote: While IsTalking DoEvents End While
So, where is this IsTalking getting it's value from? Where is it defined?
THe code you've posted won't even compile unless you specify that stuff...
|
|
|
|
|
Dave Kreskowiak wrote: MohammadAmiry wrote:
While IsTalking DoEvents End While
So, where is this IsTalking getting it's value from? Where is it defined?
THe code you've posted won't even compile unless you specify that stuff...
Dave;
Didn't work for me either. I added a timer loop like you said & it works. Like I said, I'm new at this & trying to learn. How do I get more info on vb6 component [DirectSS] ie; flags, voice selection & etc?
By the way, Thanks!
Private Sub Timer2_Timer()<br />
Dim DelayTime As Long<br />
Dim EndTime As Long<br />
<br />
DelayTime = 5 'Set Delay in Seconds.<br />
EndTime = Format(Time, "s") + DelayTime<br />
If EndTime > 59 Then<br />
'Make sure Seconds is Not Greater than 59.<br />
EndTime = EndTime - 59<br />
End If<br />
Do Until Format(Time, "s") = EndTime<br />
'Yields execution so that the operating system can process other events.<br />
DoEvents<br />
Loop<br />
End Sub<br />
<br />
Function stalk()<br />
Open "c:\webster\1\say.txt" For Input As 1<br />
txtText.Text = Input(LOF(1), 1)<br />
Close 1<br />
DirectSS1.AudioReset<br />
DirectSS1.Speak txtText.Text<br />
Timer2_Timer<br />
End Function<br />
<br />
Private Sub Form_Load()<br />
Call stalk<br />
Unload Me<br />
End Sub
Robert, still trying
|
|
|
|
|
It's not a VB6 component. It's a COM-based library that happens to be installed on your machine.
I don't know which version of the Speech Api you have installed, byt this[^] is the starting point for the current 5.3 version. You can get the 5.1 SDK from here[^]. If I read this stuff correctly, the 5.3 API is built into Vista and not available as a seperate download. Well, maybe part of the Platform SDK 6.0...
There has to be a Status on the speech object you have, which you'd have to poll in a loop to see if it's still talking. Or maybe it exposes an event that signals completion. I simply don't know. What reference did you add to your code to get at the DirectSS class??
|
|
|
|
|
Hi,
I designed a report with crystal report 6.0 and connected it to an odbc data source.Please I want to call this crystal report 6.0 report from VB6.
I got confused in creating the application, database,table objects.
And I dont know how to set the logon info from the code.
HOW CAN CREATE A CRYSTAL REPORT 6 AND CALL IT FROM vb6
Please help out.
-- modified at 11:06 Tuesday 11th September, 2007
|
|
|
|
|
How can i reference form2 in project2 from form1 in project1 where project1 and 2 are in the same solution
thanks
|
|
|
|
|
just right click the project1 choose add reference choose tab project and choose project2
then in form1 add imports project1
and then you can just open form2 as if it was in the same project
be aware that once you reference project2 into project1 you can not reference project1 into project2 (or something like that, it's been a long day  )
hope this helps
If my help was helpfull let me know, if not let me know why.
The only way we learn is by making mistaks.
|
|
|
|
|
Thanks for ur reply, however this works only with VS2005 and not VS2003. Iam using VS2003. How can i do it in VS2003?
Thanks again
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
