Visual Basic

6-Mar-06 2:13

Did you click on the link I posted? I saw a few links on the first result page that might have what you're looking for.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

keyboard and mouse

Ali el4-Mar-06 21:59

Ali el

4-Mar-06 21:59

hello eveyone
i just wanna ask if there is anyone can help me in my project.
i dont know how to start explaning it but i need to know how could i disable the mouse and keyboard, i tried to use API function "input" but i found some problem that is when i press Alt+Ctrl+Del then the mouse and keyboard become free then i disable Alt+Ctrl+Del and but nothing new the mouse and keyboard becomes free again although the disable of the combination successeded.

i dont know if u understand what is the problem, but if you, please give me any idea and thanks

the simplcity is the best Smile | :)

Re: keyboard and mouse

Dave Kreskowiak5-Mar-06 8:04

Re: For loop syntax error

5-Mar-06 8:04

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

For loop syntax error

Gariel Elijah4-Mar-06 13:24

Gariel Elijah

4-Mar-06 13:24

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

Guffa5-Mar-06 3:03

Guffa

5-Mar-06 3:03

The syntax of the For command is:

For counter_variable = start_value to end_value

---
b { font-weight: normal; }

Help needed with retrieving values from Dataset?

Rashar4-Mar-06 12:03

Rashar

4-Mar-06 12:03

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,

Re: Help needed with retrieving values from Dataset?

H@is@here4-Mar-06 15:35

H@is@here

4-Mar-06 15:35

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

Re: Help needed with retrieving values from Dataset?

Rashar5-Mar-06 4:43

Rashar

5-Mar-06 4:43

Ahhh. That's it. Thanks.

string concat

united184-Mar-06 7:48

4-Mar-06 7:48

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.......

Dave Kreskowiak4-Mar-06 10:15

4-Mar-06 10:15

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

united184-Mar-06 17:28

4-Mar-06 17:28

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'

Dave Kreskowiak5-Mar-06 1:59

5-Mar-06 1:59

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

united185-Mar-06 3:33

5-Mar-06 3:33

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

Dave Kreskowiak5-Mar-06 7:30

5-Mar-06 7:30

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

united185-Mar-06 7:54

5-Mar-06 7:54

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

Dave Kreskowiak5-Mar-06 8:45

5-Mar-06 8:45

united18 wrote:
when u get time

That's funny! Laugh | :laugh:

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

Guffa4-Mar-06 11:51

Guffa

4-Mar-06 11:51

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; }

united184-Mar-06 17:27

Create an Active-X exe in VB.Net

4-Mar-06 17:27

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'

Rich Bradley4-Mar-06 4:17

Rich Bradley

4-Mar-06 4:17

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

Re: Create an Active-X exe in VB.Net

Dave Kreskowiak4-Mar-06 10:12

Help me please... TextBox Control

4-Mar-06 10:12

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

FeRtoll4-Mar-06 3:27

FeRtoll

4-Mar-06 3:27

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... Frown | :(

Thanks
Plus i didnt sleep 2 days... Frown | :(

so please help me! Sleepy | :zzz:

FeRtoll Software.net
--------------------
I fertoll@net.hr I
--------------------

Re: Help me please... TextBox Control

united185-Mar-06 8:04

Re: Help me please... TextBox Control

5-Mar-06 8:04

pls can u tell step by step what exactly u want?
Regards,
uni

FeRtoll5-Mar-06 9:50

FeRtoll

5-Mar-06 9:50

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? Frown | :(

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
--------------------

Re: Help me please... TextBox Control

united185-Mar-06 14:45