Re: Passing a UserControl to a standard module - Visual Basic Discussion Boards

Dave Kreskowiak26-Mar-04 14:55

26-Mar-04 14:55

If all you have in this table is key and value pairs, why not implement it as a Dictionary using the DictionaryBase class? You can make your Dictionary ReadOnly and provide Insert Validation.

RageInTheMachine9532

Re: Bug In VB.NET Compiler?

Michael Russell26-Mar-04 15:09

Michael Russell

26-Mar-04 15:09

The example was a simplified version of the actual port work. The example has problems after 30,000 entires, as does the actual port work, which has 11 seperate properties, including three delegates.

As for your recommendation, I do agree. That would be preferred were it possible.

However, there are strengths to using a ReadOnly array, namely compile-time array write checking rather than runtime checking, increased performance, and strong typing without a wrapper class.

But the main issue here is which is wrong: the compiler compiling code that should not run, or the CLR crashing on code that should?

Dynamic Context Menus not appearing in My Computer

Brad Mathews26-Mar-04 12:39

Brad Mathews

26-Mar-04 12:39

Howdy,

I have a project that adds a dynamic context menu to Windows Explorer. I right click on any file and my menu items are displayed just fine.

However, when I right click a file in My Computer - no menu.

My registry settings appear to be just fine - they are the same as other context menu utilites.

I have restarted explorer.exe and even re-booted the computer

I am implementing CMF_EXPLORE in QueryContextMenu. Is there another interface I should be implementing in my code?

Any ideas why this works in Windows Explorer but not My Computer?

Thanks

- Brad

Passing a UserControl to a standard module

Hesham Amin26-Mar-04 7:05

Hesham Amin

26-Mar-04 7:05

VB6:

Hi
in my user control code I want to pass the user control to a standard module sub but I'm having troubles with this :

'module : mdl.bas
Public Sub Add(ctrl As UserControl)
MsgBox ctrl.Width
End Sub
'MyCtrl.ctl
Private Sub Command1_Click()
Add Me
End Sub

I get this error : Type Mismatch because Me type is considered MyCtrl not userControl
then i tried this :

'module
Public Sub Add(ctrl As MyCtrl)
MsgBox ctrl.Width
End Sub

but i get : Method or data member not found ..
any way around this ?

Re: Passing a UserControl to a standard module

Dave Kreskowiak26-Mar-04 7:55

Dave Kreskowiak

26-Mar-04 7:55

On what line are you getting this error?

I'm guessing your getting on the 'Add Me' line. This would be because Add is not defined in your Control anywhere. You might want to try 'md1.Add Me'...

But, a better design would be for something outside the control to call the add function with a reference to the control.

RageInTheMachine9532

Re: Passing a UserControl to a standard module

Hesham Amin26-Mar-04 10:56

Hesham Amin

26-Mar-04 10:56

mdl.Add Me did not work when the Add method was defined as :
Public Function Add(ctrl as UserControl)
not specifying the module name (mdl) does not make the problem..

Re: Passing a UserControl to a standard module

Dave Kreskowiak26-Mar-04 14:41

Dave Kreskowiak

26-Mar-04 14:41

I didn't think it would, but it was worth a try...

The best method is still to have a piece of code outside your control add the control to your collection.

RageInTheMachine9532

Re: Passing a UserControl to a standard module

Hesham Amin26-Mar-04 23:19

Hesham Amin

26-Mar-04 23:19

Hi i solved the (Sub not found) problem by exposing the user control properties using public properties.
thank you.

using DirectSS text-to-speech control

Cluniac26-Mar-04 6:25

Cluniac

26-Mar-04 6:25

Is anyone familiar with using TTS with DirectSS? I was following an older tutorial on here, (http://www.codeproject.com/vbscript/texttospeech.asp), and like many of the other users pointed out, I am having trouble hearing any sound. I added the DirecSS component which is linked to the c:\windows\speech\XVoice.dll The program compiles, and there are no errors with the speech class. Vb recognizes:
spkSpeak.Speak("whatever")

and

spkSpeak.Speak(txtText.Text)

the second line there should speak what is typed in a text field named txtText. Any ideas as to why there is no sound?

I am using XP, and this tutorial was written before XP I believe, not sure if there is a compatability issue?

Thanks for any help!

Deactivate floppy Disk Device

monivong26-Mar-04 5:11

monivong

26-Mar-04 5:11

Hi,

I couldn't find any information for the above topic, so I post it here.

I am trying to deactivate/disable the Floppy Disk Device under XP via Visual Basic. I already found out that it's not possible with WSH.
Is there any Api Function which allows me to disable the controller?

I need this to temporarily disable the Floppy to use the substitute Command to redirect the disk access to a directory. The SUBST command only works when a:\ isn't available!

Any suggestion to help me?

Thank you very much in advance for your replies.

Monivong

Deacivate floppy Disk Device

monivong26-Mar-04 5:01

monivong

26-Mar-04 5:01

Re: Deacivate floppy Disk Device

Dave Kreskowiak26-Mar-04 7:51

Dave Kreskowiak

26-Mar-04 7:51

You might want to try WMI and the System.Management namespace. You can get a reference to the disk controler driver and TRY to disable it, it works kind of like a service where you can Start, Stop, Pause,... But, if I remember right, it doesn't actually work properly with drivers.

But instead of going through all this pain, why not use B: instead of A:...

RageInTheMachine9532

Property description tooltip

800XL26-Mar-04 3:56

800XL

26-Mar-04 3:56

Hello
Does anyone know if it's possible to create the description tooltip that appears in the IDE for properties and methods etc?

I know in C# you can embedd <SUMMARY> xml tags in the source, but this does not seem to work with VB.net?

Re: Property description tooltip

Dave Kreskowiak26-Mar-04 4:19

Dave Kreskowiak

26-Mar-04 4:19

That functionality isn't supported in VB.NET, yet...

To do this, you'll have to either write, by hand, the .xml file that describes the stuff, like c# can generate, or, you'll have to use a third party component that creates the file for you. You can find that on GotDotNet here[^].

RageInTheMachine9532

How do you insert a row at a time?

hounetdev26-Mar-04 3:16

hounetdev

26-Mar-04 3:16

Hello,

I have a filled a data set and would like to insert data from that dataset to a different table then the dataset was filled with, is there a way to do it a row at a time? If so does anyone have an example? Confused | :confused:

Thank you,

Santana

Re: How do you insert a row at a time?

super_coding27-Mar-04 3:40

super_coding

27-Mar-04 3:40

Would you elaborate more?

If I am correct, then this is what you want to happen:

dataadapter.fill(dataset,"Table1")
'do inserts into the dataset
'now you want all the inserted rows to be saved to Table2! True?

'If you are using update command on dataadapter, then you would be able to only save the rows to Table1

dataadapter.update(dataset) 'this will save rows to Table1

if you want these rows to be saved into another table (Table2) then create another dataadapter + dataset for that table, copy dataset1 to dataset2 and then call update on dataadapter2.

let me know.

Web reading made easy -
http://www.xemantex.com

Re: How do you insert a row at a time?

Pradeep C27-Mar-04 5:09

Pradeep C

27-Mar-04 5:09

You can use a command object to update the rows in Dataset to the second Table in database.
'assume connString = Your connection string
Dim cn as new OledbConnection(connString)
Dim cmd as new OledbCommand
cmd.Connection = cn
cn.Open

dim i as integer

For i=0 to DataSet1.Tables(0).Rows.Count-1
cmd.CommandText = "INSERT INTO Table2 (Col1,Col2,Col3,..) VALUES (DataSet1.Tables(0).Rows(i).Item(1),DataSet1.Tables(0).Rows(i).Item(2),DataSet1.Tables(0).Rows(i).Item(3)....)
cmd.ExecuteNonQuery
Next

cn.Close
cmd.Dispose
cn.Dispose

"I think there is a world market for maybe 5 computers"
Thomas Watson, chairman of IBM, 1943

"There is no reason anyone would want a computer in their home"
Ken Olson, chairman & founder of Digital equipment, 1977

"This 'telephone' has too many shortcomings to be seriously considered as a means of communication. The device is ingerently of no value to us."
Western Union internal memo, 1876

"640 K ought to be enough for anybody."
Bill Gates, 1981

"Computers in the future may

Re: How do you insert a row at a time?

Guerven30-Mar-04 1:58

Guerven

30-Mar-04 1:58

try executing an SQL command using a command object.
loop through the records in the dataset

dim x as integer
dim KKK as new oledbcommand
kkk.connection = 'write you connection here
kkk.connection.open ' if the connection is closed

for x = 0 to dataset1.tables.rows.count - 1
kkk.executenonquery("Insert into TABLENAME (field1,field2,field3) values (" & dataset1.tables(x)("field1") & "," & dataset1.tables(x)("field2") & "," & dataset1.tables(x)("field3") & ")")

next

kkk.conection.close ' just close the connection

- Casting More!!
May elune shine upon you!

Creating PDF writer in .net

DHARMA.R25-Mar-04 22:13

DHARMA.R

25-Mar-04 22:13

Hi,

I'd like to create my own PDF writer in .net.
Can anyone suggest me on

-> Where to start ?
-> Tecnologies involved ?
-> Where to get samples ?
-> How to get sample source code for Pdf components ?

Pls. detail me if anyone knows abt this.

Thanks in advance.

DHARMA.R

Re: Creating PDF writer in .net

Dave Kreskowiak26-Mar-04 2:39

Dave Kreskowiak

26-Mar-04 2:39

The first place to start would be http://developer.adobe.com. You'll need the specifications for the format of a .PDF file. Warning: Not free...

You can look at a couple of open source projects at http://sourceforge.net[^] like PDFCreator and iText.

RageInTheMachine9532

Re: Creating PDF writer in .net

DHARMA.R26-Mar-04 4:03

DHARMA.R

26-Mar-04 4:03

Hi Dave,

Thank u v much for ur valuable help.
I will check it now.

Thanks
DHARMA.R

DHARMA.R

ant algorithm with visual basic??

pahlawan_siber25-Mar-04 20:12

pahlawan_siber

25-Mar-04 20:12

, i'm a new pwerson in this forum so please give me some lessons ok..;) Here i've got some problem that i want to learn the ant algorithm, not genetic algorithm using visual basic 6. As a student, i thought this ant algorithm is very interesting to me. So does anybody in this forum can teach me about the ant algorithm using visual basic?? How it's work?? Some example?? I hope that someone can teach me ok... Smile | :)

Thanks.

Re: ant algorithm with visual basic??

Dave Kreskowiak26-Mar-04 2:43

Dave Kreskowiak

26-Mar-04 2:43

We can help you with coding problems. But forums like this are not the place the be teaching entire algorithms. You'll have much better (and faster!) results searching the web for "Ant algorithm". On Yahoo, I came up with LOTS of documents and code samples...

There's even an article here on CodeProject: http://www.codeproject.com/cpp/GeneticandAntAlgorithms.asp[^]

RageInTheMachine9532

changing code to add subs and to call on subs

ibok2325-Mar-04 15:01

ibok23

25-Mar-04 15:01

I am having to change my code so that I will have some subs and so that I can call on the subs. Here is my code for under the btncalculate button. Could anybody give me suggestions on how to put in subs and to change my code where it will still work.

Private Sub btncalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncalculate.Click
        Dim amount As Single
        'Finding out how much they will be payig just for the room - with no extras.
        If radstandard.Checked = True Then
            costofroom.Text = standardrate
            costofroom.Text = Format(standardrate, "currency")


        ElseIf raddeluxe.Checked = True Then
            costofroom.Text = deluxerate
            costofroom.Text = Format(deluxerate, "currency")
        ElseIf radsuite.Checked = True Then
            costofroom.Text = suiterate
            costofroom.Text = Format(suiterate, "currency")

        End If

        'Figuring out how many days that they want the room.
        numberofdays.Text = DateDiff(DateInterval.Day, dtparrival.Value, dtpcheckout.Value) + 1

        'Finding out the cost if they need an additional bed.
        Dim newcharge As Double = rollawaybed * Val(numberofdays.Text)

        If chkbed.Checked = True Then
            rollawaybedcharge.Text = Format(newcharge, "currency")
        Else : rollawaybedcharge.Text = 0
            rollawaybedcharge.Text = Format(0, "currency")
        End If

        'Finding out how many are going to be in the room.
        'Finding out how much it is going to cost for more than 2 people in the room.
        Dim additionalguest As Double = ((nudguest.Text - 2) * 10) * Val(numberofdays.Text)


        If nudguest.Text > 2 Then
            additionalguestcharge.Text = additionalguest
            additionalguestcharge.Text = Format(additionalguest, "currency")          '((((nudguest.Text - 2) * 10) * Val(numberofdays.Text)), "currency")
        Else
            additionalguestcharge.Text = 0
            additionalguestcharge.Text = Format(0, "Currency")
        End If

        'Calculating just how much the room is going to cost with the number of Days staying there.
        subtotal.Text = ((numberofdays.Text) * (costofroom.Text))
        subtotal.Text = Format(((numberofdays.Text) * (costofroom.Text)), "currency")

        'Calculating the total for the room with everything
        total = CInt(CInt(subtotal.Text) + CInt(additionalguestcharge.Text) + CInt(rollawaybedcharge.Text))

        txttotal.Text = Format(total, "C")

I am not sure what to do. I am confused on how to do this.

End Sub

Thank you,

ibok23

Re: changing code to add subs and to call on subs

ibok2325-Mar-04 15:09

ibok23

25-Mar-04 15:09

I was also told to move my subs around. Not sure what this means.

Thank you,

ibok23

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.