Visual Basic Discussion Boards

Re: how to make an application to program

nlindley77-Oct-06 18:26

7-Oct-06 18:26

if u have XP then goto control panel -> folder options -> view -> file types - > scroll down to txt file and click change.

Nathan Lindley

Re: how to make an application to program

Xmen Real 7-Oct-06 19:16

Xmen Real

7-Oct-06 19:16

yeah man i know this , my application open perfect but it not open the text in file

Re: how to make an application to program

Christian Graus7-Oct-06 23:39

Christian Graus

7-Oct-06 23:39

Your app will be passed the name of the file to open as a parameter, you need to recieve this value and open this file. It doesn't happen magically, you need to grab the parameter and use it.

Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog

Re: how to make an application to program

Dave Kreskowiak8-Oct-06 2:18

Dave Kreskowiak

8-Oct-06 2:18

You're app has to be written to handle command line parameters. Check out the Environment class and its

<a href="http://msdn2.microsoft.com/en-us/library/system.environment.getenvironmentvariable.aspx">GetCommandLineArgs</a>[<a href="http://msdn2.microsoft.com/en-us/library/system.environment.getenvironmentvariable.aspx" target="_blank" title="New Window">^</a>]

method.

Dave Kreskowiak
Microsoft MVP - Visual Basic

ToolstripcomboBox

Socheat.Net7-Oct-06 16:34

Socheat.Net

7-Oct-06 16:34

How can add icon to ToolStripCombobox for VB.NET 2005 as IE...?

Thanks

................

Re: ToolstripcomboBox

nlindley77-Oct-06 18:21

nlindley7

7-Oct-06 18:21

you want a button on the toolstrip to launch Internet Explorer? or do u want the IE icon?

Nathan Lindley

Re: ToolstripcomboBox

Socheat.Net10-Oct-06 17:45

Socheat.Net

10-Oct-06 17:45

I want to add icon to ToolStripCombobox only in VB.NET 2005

................

VB Cleanup Program - In (Context Menu) SendTo

RickMagenta7-Oct-06 6:52

RickMagenta

7-Oct-06 6:52

Hello.
I work for a PLC programming company and my boss has asked me to create a cleanup program which will remove all the temp files we dont need. He also wants a message box to appear with "More Info" and "Clean" and "Zip Porject" buttons.
Initially I was using VBScript, but I can change the msgbox buttons with this so I moved it to VB6.
The idea is to right click the folder(s) you want to clean and click the project from the SendTo menu and it will work.

How do I get the folder(s) that the user selected with VB6? With VBScript I used WScript.Arguments but I cannot seem to get VB6 to do this.

Thanks for your help

Re: VB Cleanup Program - In (Context Menu) SendTo

Ray Cassick7-Oct-06 16:13

Ray Cassick

7-Oct-06 16:13

In VB6 look at the Command$ statement. It returns to you a string containing all the command line args sent to your app.

My Blog[^]
FFRF[^]

Re: VB Cleanup Program - In (Context Menu) SendTo

RickMagenta8-Oct-06 0:12

RickMagenta

8-Oct-06 0:12

Thankyou!

That does just I job I need it to. I knew it would be something simple.

Thankyou again

how to make a layout designer in crystal report without using wizard

vidyashankar7-Oct-06 4:58

vidyashankar

7-Oct-06 4:58

hi to all,
I like to create a crystal report in manual manner.
using window form design

How to solve it?

aloksingh20067-Oct-06 2:07

aloksingh2006

7-Oct-06 2:07

I m generating a crystal report in vb. and an error is coming. Please help me how to solve it?

Dim mystrpur As String

mystrpur = "SELECT IPurMast.`Date`, IPurMast.`Party`, IPurMast.`Amt`, " & _
"IPurTran.`Item`, IPurTran.`NetQty`, IPurTran.`Rate`, IPurTran.`Amt` " & _
" From `IPurMast` IPurMast INNER JOIN `IPurTran` IPurTran ON IPurMast.`Amt` = IPurTran.`Amt` AND IPurMast.`PurNo` = IPurTran.`PurNo` where IPurMast.`Party` = '" & txtParty.Text & "' AND IPurMast.`Date`>= #" & DTPickerS.Value & "# AND IPurMast.`Date`<= #" & DTPickerE.Value & "# "

CrystalReport1.SQLQuery = mystrpur
CrystalReport1.Formulas(0) = "Bill_no = '" & txtBill.Text & "' "
CrystalReport1.Formulas(1) = "Start_dt = '" & DTPickerS.Value & "' "
CrystalReport1.Formulas(2) = "End_dt = '" & DTPickerE.Value & "' "
CrystalReport1.Formulas(3) = "Party_name = '" & txtParty.Text & "' "

CrystalReport1.ReportFileName = "c:\PurReport.rpt"
CrystalReport1.Action = 1 '****Error is in this line
CrystalReport1.WindowWidth = 100

'Erro is *****
error run time error '20599'
can't open sql server

With Regards
Alok Singh

Re: How to solve it?

User 17164927-Oct-06 2:39

User 1716492

7-Oct-06 2:39

Read this http://support.businessobjects.com/library/kbase/articles/C2002982.asp[^]

modified 1-Aug-19 21:02pm.

Badly need help to fill a picturebox with an ole picture from access

belowzero7-Oct-06 0:28

belowzero

7-Oct-06 0:28

hi,

i have to complete a program today and i stuck on one last problem. i have an access database and an image table with images as ole object. i found some codes in the www to fill my picturebox with these images but it didn`t work.

i tried to fill a dataset with the image column and set the picturebox.image to the column with the following code but it did not work.

<br />
Dim pictureDataset As New Data.DataSet<br />
<br />
HauptAnweisung.CommandText = "Select IMG_DATA AS BILD, IMG_PRID AS ID FROM T_IMAGE WHERE IMG_PRID = '" & besucherId & "'"<br />
<br />
HauptDataAdapter.SelectCommand = HauptAnweisung<br />
<br />
HauptDataAdapter.Fill(pictureDataset)<br />
<br />
bild.Image = pictureDataset.Tables.Item(0).Rows(0).Item("BILD")<br />

can you please help me to get the picture into my picturebox?

thanks michael

Control Collections

Peter Stanford6-Oct-06 23:45

Peter Stanford

6-Oct-06 23:45

I have approximately 50 labels on an asp.net page written in VB.NET 2003. I use these labels to indicate when an error has occurred by changing the color to system.drawing.color.red when the user tries to submit the page.

Before I perform this validation (there are good reasons why I don't use the native validation controls) I want to make the label invisible so that they don't appear unless an error has been detected.

I tried the following (which obviously didn't work)!

dim LabelCollection as new Collection
dim x as label

for each x in LabelCollection
if x.forecolor.equals(system.drawing.color.red) then
x.visible=false
end if
next

When I debug this code it reaches the "for each" statement but skips over the rest of the code block, i.e. it doesn't appear to find any labels in the collection.

Can anyone help with this process of iterating through a collection of controls?

What have I missed?

Re: Control Collections

Christian Graus7-Oct-06 0:09

Christian Graus

7-Oct-06 0:09

Peter Stanford wrote:
dim LabelCollection as new Collection
dim x as label

I'm confused. By what piece of magic did you expect this collection to contain anything ?

The form has a Controls collection. But because a web page is heirarchical, all the controls in it also have a controls collection. You need to iterate over it recursively to find all the labels.

Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog

Re: Control Collections

Peter Stanford7-Oct-06 1:43

Peter Stanford

7-Oct-06 1:43

Thanks, I understand recursion, what I can't find is an example of the syntax to use for this particular situation. None of the online help or forums like this one provide anything other than the answer you've just given, i.e. "just do this".

With respect, if I knew how to "just do this" I wouldn't have asked the question!

Re: Control Collections

Christian Graus7-Oct-06 12:19

Christian Graus

7-Oct-06 12:19

Well, like I said - the form has a Controls collection, and so does each control

private void SetLabels(ControlCollection ctrls)

foreach(Control c in ctrls)
{
if (c is Label)
{
// Whatever
}

SetLabels(c.Controls);
}

(somewhere else)

SetLabels(this.Controls)

Sorry, I don't 'do' VB.NET, I give answers here because I know the framework, from using C#. Hopefully, you can convert this.

Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog

Re: Control Collections

Peter Stanford7-Oct-06 19:02

Peter Stanford

7-Oct-06 19:02

Thanks Christian,

That's all I was looking for! I can work it out from here.

Best regards

Re: Control Collections

Peter Stanford7-Oct-06 19:03

Peter Stanford

7-Oct-06 19:03

Thanks Christian,

That's all I was looking for. I can work it out from here!

Best regards

How to monitor microphone input level?

re infecta6-Oct-06 21:46

re infecta

6-Oct-06 21:46

I'm using VB.net with Framework.

How to monitor the mic level of the default soundcard? I would like to be able to set a treshold value (0-100%) and when the mic level is greater than that a message box would appear. It would be important that the detection would be fast (with as short delay as possible) and consume CPU resources as little as possible.

I found some code in VB6 and C but could not translate them in VB.net.

Thank you!

,net and XML question

ranro20066-Oct-06 20:04

ranro2006

6-Oct-06 20:04

Is there a way n VB.net to count a certain number of XML nodes. Say for instance that I had an XML document that held a particular number of nodes named <employee>. Is there a function I can call to tell the exact number of nodes named <employee>?

Re: ,net and XML question

Christian Graus6-Oct-06 23:36

Christian Graus

6-Oct-06 23:36

If the XML is in an XmlDocument, or any other DOM implimentation, SelectNodes("//Nodename") will return a collection of all nodes with that name, // in XPath means to look everywhere. The collection has a Count or Length property.

Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog

Datareports

Chira Chandra6-Oct-06 19:47

Chira Chandra

6-Oct-06 19:47

Hi, this is chandu,

I am developing an application which includes Datareports in VB with Access. I am getting the report on user input for the first time. But when i am trying to get another record it is giving the error message like

Msgbox "Operation can't process as the object is already open"

please soleve this problem.
Please give the code.

Thank you

FTP using WININET.DLL

leezardd6-Oct-06 13:13

leezardd

6-Oct-06 13:13

Help! I am using something I don't understand and need some direction.

I am trying to use "WININET.DLL" to ftp a file. I know the function FtpPutFile returns false but I don't know why. How can I find out why? Below is a code snippet of what I am doing.
All help is greatly appreciated!

Public Function bolFtpUpload(ByVal...............<br />
            bolFtpAction = FtpPutFile(intNetConn, _<br />
                                       strLocalFile, _<br />
                                       strRemoteDirectory, _<br />
                                       intTransferTypeFlag, _<br />
                                       intContext)<br />
            If bolFtpAction = False Then<br />
                     "Transfer failed  " <br />
            Else<br />
                     "Transfer Succeeded  "<br />
            End If<br />
    End Function<br />
<br />
    Private Declare Function FtpPutFile Lib "WININET.DLL" _<br />
        Alias "FtpPutFileA" (ByVal intFtpSession As Integer, _<br />
                             ByVal strLocalFile As String, _<br />
                             ByVal strRemoteFile As String, _<br />
                             ByVal intFlags As Integer, _<br />
                             ByVal intContext As Integer) As Boolean

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