|
The only way to do this reliably is to write global keyboard and mouse hooks. There's a few articles here[^] on CP. The code is in C#, but is easily converted to VB.NET.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
check my code syntax error in "For Fentry To Lentry" "sql" "cmd"
What does this code do! Want to automaticaly generate number in my database(SQL).Just entering first no. in TextStart.Text and last no. in TextEnd.text.
Example:
first no.: 1
Last no.: 10
it will record the no.1,2,3...10 in the database.
myAdapter.SelectCommand = New SqlCommand("Select * from tblReceipt", MainConnect)
myBuilder = New SqlCommandBuilder(myAdapter)
Try
myAdapter.Fill(tblOR)
Catch ex As Exception
MessageBox.Show("Cannot find the information needed." & newLine & "Check Database or contact programmer!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Fentry = Convert.ToInt32(TextStart.Text.ToString())
Lentry = Convert.ToInt32(TextEnd.Text.ToString())
MainConnect.Open()
For Fentry To Lentry
sql = "INSERT INTO myTable(Number) VALUES (" + Fentry + ") "
cmd = New SqlCommand(sql, MainConnect)
cmd.ExecuteNonQuery()
Next
|
|
|
|
|
The syntax of the For command is:
For counter_variable = start_value to end_value
---
b { font-weight: normal; }
|
|
|
|
|
Hello,
The following dataset returns the results of this table:
Dealer Item Description Lang
12345 4567 numbers E
In my code, how would I retrieve the value in the Lang column? I need to be able to retrieve that value in my IF statement so that I can use a specific form for that dataset as such:
Me.TableAdapter1.Fill(Me.DataSet.tblitems)
If Me.dataset.tblitems (Lang coloumn = E) then
Me.ReportViewer1.RefreshReport()
else
Me.ReportViewer2.RefreshReport
End IF
Thank you,
|
|
|
|
|
If dataset.tables(y).rows(x)(z).tostring="E" Then
end if
y-The number of the table
x-The number of the row
z-The number of the column
|
|
|
|
|
|
Hi,
I am facing a strange problem in this.
http://www.codeproject.com/vb/net/vbmp3header.asp
When i try to trap the value of artist and title as:
dim artist as string
artist = objMP3V1.Frame(MP3ID3v1.FrameTypes.Artist)
dim title as string
title = objMP3V1.Frame(MP3ID3v1.FrameTypes.title)
dim new Name as string
newName = artist + title
The variable 'newName' does not contain the values of both title and artist. It only contains of artist whereas individually i am able to see the values of artist (msgbox(artist)) and title (msgbox(title)).
Pls reply within half hour.......
|
|
|
|
|
united18 wrote: Pls reply within half hour.......
You're joking right? This is an all-volunteer effort forum. Not a tech support line. If you want immediate help, call Microsoft. Don't forget your credit card.
But, as to your problem, string concatenation is done using:
newName = artist & " - " & title
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I tried this also, then also it is not concatenating.
Both ways i do not get a compilation error, but only one value is stored in 'newName'
|
|
|
|
|
dim artist as string
artist = objMP3V1.Frame(MP3ID3v1.FrameTypes.Artist)
dim title as string
title = objMP3V1.Frame(MP3ID3v1.FrameTypes.Title)
dim newName as string
newName = artist + title
If this is indeed the code your using, then the only possibility is that the call to objMP3V1.Frame(MP3ID3v1.FrameTypes.Title) returned an empty string.
Try copying and psting your code next time, not just typing what you think you used. We've all tried to chase down bugs in code that wasn't actually being used around here and it wastes a lot of time.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
yes.... u r right. 1) i will copy the code rather than typing it here.
2) objMP3V1.Frame(MP3ID3v1.FrameTypes.Title) .This code return the value of title and similarly objMP3V1.Frame(MP3ID3v1.FrameTypes.Artist) returns the value of Artist. But when i try to concat by either i) artist + title or ii) artist & title ---- it returns only artist's value.
But this problem was solved when i created 3 label fields :-
label1, label2, label3. what i did was:-
label1.text=objMP3V1.Frame(MP3ID3v1.FrameTypes.Title)
label2.text=objMP3V1.Frame(MP3ID3v1.FrameTypes.Title)
label3.text=label1.text + "-" + label2.text
With this code it was concatening. But in this case also if i make these 3 label fields invisible ('label1.visible=false') then it doesn't concatenate again. So i have to always set the visible property to true of these 3 labels. This is quite strange though.
Anyways thanks a lot for your help.
Regards
|
|
|
|
|
WHAT???? This is REALLY strange. Since the .Text property of a Label only accepts a String, I have no idea what's going wrong. Perhaps a bad string comming from the library you're using? You might want to check with the people that wrote the library for any issues.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
i know this sounds strange, even u can check like this when u get time and if possible clarify me if u think i am making a mistake. Whatever, atleast this way (labels) it is working.
btw the class i was using for fetching id3 tags from mp3 files is :
http://www.codeproject.com/vb/net/vbmp3header.asp
|
|
|
|
|
united18 wrote: when u get time
That's funny!  I won't get that kind of time for months!
united18 wrote: btw the class i was using for fetching id3 tags from mp3 files is :
http://www.codeproject.com/vb/net/vbmp3header.asp
So go to the bottom of his article and post your problem there. THe author will get an email message that you posted your question and he might be able to tell you something about it.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
This line:
dim new Name as string
is not even possible to compile.
So, you are not showing us the code that you are using. How much does the real code differ from what you showed?
(Sorry if this sounds picky, but I have wasted a lot of time looking for errors that doesn't exist in code that people doesn't even use.)
---
b { font-weight: normal; }
|
|
|
|
|
sorry actually i wrote
dim newName as string
it was just a typing mistake here.
in the program i wrote 'newName' only and not 'new name'
|
|
|
|
|
I have made .net componets com compliant and visible in VB6 but I can not seem to get a .net exe to behave as an active-x exe.
For backward compatability I need to create a .net exe that vb6 can use with late binding.
dim obj as object
set obj = createobject("DotNetExeName.PublicClassName")
If anyone knows how to do this, I would appreciate the help.
Rich Bradley
|
|
|
|
|
None of the managed code compilers can generate a true ActiveX server. The .NET Framework doesn't support all the exports required. But, you could simulate something similar using COM Interop using very similar techniques to what you've already done. You can learn more about this under Interoperating with Unmanaged Code[^]. Pay particulat attention to RegAsm.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
My school ends 04.03.2006 and i need to make some application for end... i started to do text editor and i want when some of text starts with example("!") then the combobox apears with items that you can insert example
_______________________
| ("!Insert string") |
| ("!Insert picture") |
| ("!Todays Date") |
| ("!Smiles") |
| ("!End all") |
-----------------------
and other thing:
How to when the other form dialog apears and when i click insert on it i want that it inserts a text buth in position where was the (Ibeam). example
_________________________________
| Form1 - Text editor |
|--------------------------------|
| Some text bla bla balsa ssfj |
| Other one texttatdigfjl a |
| |
| More tegjkabsdfn čkssa |
| |
----------------------------------
now i click on insert new and the new forma apears like dialog
__________________________________
| Form2 - Insert text to Form1 |
|--------------------------------|
| |
|Type text to insert: |
||==================| |
| |
| Cancel | Insert|
----------------------------------
i pres insert and i want that the text what i typed is inserted in Form1 - TextBox1 - Selected start where was the (Ibeam).
Please help meeeeeeeeeeeeeeeee... 
Thanks
Plus i didnt sleep 2 days... so please help me! 
FeRtoll Software.net
--------------------
I fertoll@net.hr I
--------------------
|
|
|
|
|
pls can u tell step by step what exactly u want?
Regards,
uni
|
|
|
|
|
I need that when i type in textbox... if text starts with "<" then i get combobox with items for html tags... buth annywhere in textbox if i type i get thet... Get it now?
The other question is how can i bring string from other dialogform to first one in textbox buth in the place where was the cursor (Ibeam) the | when you type the text...
Ohhhhhhh sorry i am from croatia i dont know english good. Buth please help me...
Thx
FeRtoll Software.net
--------------------
I fertoll@net.hr I
--------------------
|
|
|
|
|
"I need that when i type in textbox... if text starts with "<" then i get combobox with items for html tags... buth annywhere in textbox if i type i get thet... Get it now?"
in the key press event of the textbox u can check for < or .......if(textbox1.text="<") then u can either i) create a combo box or u can set the visible property of a combo box to true --- (combobox1.visible=true)
sorry can't get ur second ques - is it that u wanna fetch a value from a dialogbox and use it in a textbox???
|
|
|
|
|
yea in key press event...
so it will be like:
Private Sub TextBox1_TextChange 'this event<br />
<br />
If textbox1.text.startswith("<") then<br />
combobox1.visible=true<br />
else<br />
combobox1.visible=false<br />
End if<br />
End Sub
buth i dont need that becose i need that it always check if the "<" is typed annywhere...
Should i try like this?
Private Sub TextBox1_KeyDown<br />
<br />
if e.keys="<" then<br />
combobox1.visible=true<br />
else<br />
combobox1.visible=false<br />
End Sub
The other question is:
I have Form1 and Form2
on form1 i have textbox1
and now i type text in textbox something like this:
_____________________________
| shdkashlčj ljsl jlj aćdsk |
| jsahkldhsačklh aslč jda l |
| sjdaskd <-"Here is Ibeam" |
| jsd d ashkld ahs dkas s |
| sdjahdla čsdčk ashčfač f |
-----------------------------
^-this is TextBox 
and now i click in menu insert new...
the form2 shows like dialog
you select text to insert in textbox
and click on btn_insert
and now i want that the text that was selected in list box on form2, that that text goes to form1/textbox1 thats easy buth i need that text goes to the place of Ibeam not on the end of text box. Thanks again
FeRtoll Software.net
--------------------
I fertoll@net.hr I
--------------------
|
|
|
|
|
1)yes u should try the keydown()
2)to replaceonly a part of a textbox
u should use replace func. :-
TextBox1.Text = TextBox1.Text.Replace("IBeam", "new text")
|
|
|
|
|
FeRtoll wrote: and now i want that the text that was selected in list box on form2, that that text goes to form1/textbox1 thats easy buth i need that text goes to the place of Ibeam not on the end of text box.
By Ibeam, do you mean cursor? If so, try using SelectedText, like this:
textbox1.SelectedText = listbox.text
This will insert the text from form2 listbox into the text in form1 textbox, at the location of the cursor.
Roy.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
