Visual Basic

9-Dec-07 9:41

Please try to use sensible subject lines. We know that this is a visual basic question, it's in the VB forum.

This is easy to do. Just select the list of fields from the database, set your combobox to have the right DisplayMember and ValueMember ( these tell the combobox which columns to use to display and as the value associated with the displayed value, usually the Id that you need to pass the selection back into the DB ), and set it's datasource to be the dataset that you got from the DB.

swf in vb 2005

Sai Yasodharan9-Dec-07 1:07

Sai Yasodharan

9-Dec-07 1:07

hi,
is it possible to import swf media files into my visual basic 2005???if yes, then how to implement it???...
please help me out in creating an application that has an embedded swf player...

thanks in advance!

Known is a Drop, UnKnown is an Ocean
More about me at http://in.geocities.com/slagio2002/me.html

Re: swf in vb 2005

Dave Kreskowiak9-Dec-07 4:44

How to declare a Fortran DLL in ASP.NET 2.0 - Visual Basic

9-Dec-07 4:44

VB won't do anything with them. You could include them as resources, but I have no idea if the Shockwave player will use them if stored in resources. You could include the SWF files as part of the project, then tag them as content and they'll get copied to the bin folder when you compile the app.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Sergio2santos8-Dec-07 17:56

Re: How to declare a Fortran DLL in ASP.NET 2.0 - Visual Basic

8-Dec-07 17:56

I have been building a website using ASP.NET 2.0. Also, I have a routine in Fortran, which I converted to a DLL, that I need to call from an ASP page. The problem is that the Fortran DLL returns some values to the ASP-Visual Basic code and PInvoke mechanism that I used does not like this. I get the error: PInvoke restriction: cannot return variants<.
I have tried this in Visual Basic, where the Declaration of the DLL goes on a Global.bas Module, and in that case things work. Basically my problem is that I do not know how to declare a DLL in ASP.NET so that values can be passed from the DLL to the ASP-Visual Basic code.
See my code below and thanks for any help.
Sergio

Here are the relevant sections of my code...
ASP-Visual Basic
Imports System.Diagnostics.Process
Imports System.Text.RegularExpressions
Imports System.Runtime.InteropServices
Imports System.Diagnostics
Imports System.IO

Public Class Predict
Inherits Page

Dim BethRuns As Integer 'variable to receive num of iterations
Dim AAcounter As Integer 'Amino acid counter
Dim Argument As String
Dim Seqc As String 'varible to receive the sequence from textbox

Dim i, j As Integer 'counters
Dim LengthAA As Integer 'length of the aa sequence
Dim CharAASeq As String 'Variable to store the AA string

'Declare the fortran DLL routine
Declare Auto Function segmentationAlt Lib "BETH_DLL.dll" (ByRef seq As Single, ByRef LengthAA As Integer, ByRef Top As Integer)
.
.
.
Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click

.
.
.
'Call the BETH DLL passing the seq array to it and the lenth of the sequence - LengthAA
'The DLL calculates the Topology - Top
'The code fails in this call and gives the error:
'"PInvoke restriction: cannot return variants"
Call segmentationAlt(seq(1), LengthAA, Top(1))

.
.
.
End sub
.
.
.
End Class

Fortran DLL
SUBROUTINE segmentationAlt(AAseqc, aaLen, top)
!MS$ATTRIBUTES DLLEXPORT, ALIAS:'segmentationAlt'::segmentationAlt
use portlib

!********************Variables***********************************

.
.
.

end subroutine
Sergio

Dave Kreskowiak9-Dec-07 4:39

Re: How to declare a Fortran DLL in ASP.NET 2.0 - Visual Basic

9-Dec-07 4:39

Sergio2santos wrote:
Declare Auto Function segmentationAlt Lib "BETH_DLL.dll" (ByRef seq As Single, ByRef LengthAA As Integer, ByRef Top As Integer)

You haven't specified the type that is being returned by the FORTRAN funtion. There should be an As clause at the end of this function declare:

Declare Auto Function segmentationAlt Lib "BETH_DLL.dll" (ByRef seq As Single, ByRef LengthAA As Integer, ByRef Top As Integer) As whatType

I don't know FORTRAN, so I can't tell you what that should be off the top of my head.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Sergio2santos12-Dec-07 11:09

Re: How to declare a Fortran DLL in ASP.NET 2.0 - Visual Basic

12-Dec-07 11:09

Hi Dave,

Thanks for the reply. I see what you are saying.

My fortran DLL does not return values. I have it writing to memory and then the Visual Basic in ASP reads the values from that address in memory ..... the DLL writes to the variable Top as integer.

I see that I need the "AS ..." clause at the end .... I will have to figure out how to get arround this.

I have looked for a NULL return type ... but no luck.

Thank you for the help.

Best regards,
Sergio

Dave Kreskowiak12-Dec-07 12:49

Re: How to declare a Fortran DLL in ASP.NET 2.0 - Visual Basic

12-Dec-07 12:49

Sergio2santos wrote:
My fortran DLL does not return values. I have it writing to memory and then the Visual Basic in ASP reads the values from that address in memory ..... the DLL writes to the variable Top as integer.

Why?? That's doing it the hard way. If you're FORTRAN code is returning a single value, a function is the way to go.

Private Declare Function subroutineName Lib "myfortran.dll" (ByVal var As SomeType) As SomeReturnType

There is no NULL return type. This would make the method you're calling a Sub:

Private Declare Sub subroutineName Lib "myfortran.dll" (ByRef var As SomeType)

If the FORTRAN code needs to modify the variables of the caller, then the caller passes those variables in ByRef.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Sergio2santos12-Dec-07 16:12

Re: How to declare a Fortran DLL in ASP.NET 2.0 - Visual Basic

12-Dec-07 16:12

Hi Dave,

Thanks for your help. I really did not know how functions worked in Fortran - I just had to convert someone's code to a DLL and then use it inside my ASP-VB code.

However, the Fortran function on the DLL must return a one dimensional array of n values. I have been looking at "array valued functions in fortran" but I have not been able to ge it to work. Do you have any sugestions,i.e. documents websites where I can learn how to return an array from a Fortran 90 function?

Thanks and best regards,
Sergio

Dave Kreskowiak13-Dec-07 1:39

Re: How to declare a Fortran DLL in ASP.NET 2.0 - Visual Basic

13-Dec-07 1:39

I don't know FORTRAN so I can't really help with that side. From the VB.NET side, you can declare the Function something like this, if the function returns an array of Integers:

Private Declare Function segmentationAlt Lib "myFortran.dll" ( _
                ByVal AAseqc As Integer, ByVal aaLen As Integer) As Integer()

As for the FORTRAN side, Google is your friend: "fortran90 returning an array[^]". That's about the best I can do.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Sergio2santos12-Dec-07 17:45

12-Dec-07 17:45

Hi Dave,

Regarding array valued functions in Fortran - I figured that if I declare my function inside the DLL as follows the DLL compiles...

FUNCTION SegmentationAlt(AAseqc, aaLen)	result (top)<br />
!MS$ATTRIBUTES DLLEXPORT, ALIAS:'segmentationAlt'::segmentationAlt<br />
<br />
use portlib<br />
<br />
!********************Variables***********************************<br />
<br />
integer aaLen !The length of the aa-sequence passed<br />
integer	n	  !Variable to store the aa-sequence length<br />
<br />
Integer AAseqc(aaLen)<br />
	         			         <br />
integer, ALLOCATABLE :: seq(:)   !It will take in the amino acid input sequence -<br />
                                 !Numeric format 1-20<br />
<br />
character topc(aaLen) !Topologia na forma I,O,M	- In character format<br />
<br />
integer top(aaLen) !Sequencia de topologias relativas a seq:1(I)2(M)3(O)<br />
                     !In numeric format<br />
<br />
real*8 PpostT(aaLen,3), Frq(aaLen,3), FrqAnt(aaLen,3) <br />
<br />
                   .<br />
                   .<br />
                   .<br />
                   .

The return type is an integer array. And then I do not know how to call the the function from my ASP-Visual Basic. I tried "array" as return - I guess not a good idea because it is not a type but a class....

                       .<br />
                             .<br />
                             .<br />
Private Declare Function SegmentationAlt Lib "BETH_DLL.dll" (ByRef seq As Single, ByRef LengthAA As Integer) As Array<br />
                             .<br />
                             .<br />
                             .<br />
Static Top(0 To LengthAA) As Integer 'stores the numeric version of the topology<br />
                             .<br />
                             .<br />
                             .<br />
Top = SegmentationAlt(seq(1), LengthAA)<br />
                             .<br />
                             .

The thing actually compiles but then it does not find the function "SegmentationAlt" in the DLL.
"Unable to load DLL 'BETH_DLL.dll': The specified module could not be found. "
I am sure that the DLL was properly included in the project - I think that the "signature" of the function is not recognized from the ASP-VB code.

Could you please coment on this. I would appreciate,
Sergio

Quicktime & VB.Net!

Sorikan8-Dec-07 14:07

Sorikan

8-Dec-07 14:07

I have just started with VB.Net, and so far I am having a blast - however I have hit a wall with regards to the QuickTime component offered by Apple. I am posting this message here to see if anyone here has or is using it.

In the below URL (listing 3) you can see an almost perfect example of how to convert a file in VB 6 using QuickTime. I am only stuck on two issues: where / what is control.movie coming from (it's supposed to be the file you want to convert but I dont see where it is created or being passed from) and I need to get QuickTime to report back with it's export options, or the codecs which can be used to export.

http://developer.apple.com/technotes/tn2006/tn2120.html

This is technically my third program I have written so far, the second one being a total rewrite of the first. I am pretty sure the answer is right there staring me in the face, I just dont have the experiance yet to see it!

Any help at all would be greatly appreciated.

Thanks,
Mark

Dave Kreskowiak8-Dec-07 17:10

8-Dec-07 17:10

Sorikan wrote:
his is technically my third program I have written so far, the second one being a total rewrite of the first.

This is something that is very basic in nature. I highly suggest picking up a beginners book on VB.NET and working through it.

The code you refer to says that "Control" is avariable of type QTControl. This method is expecting you to pass in a QTControl object.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Sorikan8-Dec-07 17:33

Sorikan

8-Dec-07 17:33

Ok. Thanks for answering.

Anyone else?

Sorikan

Christian Graus8-Dec-07 22:38

8-Dec-07 22:38

I'm sure there are plenty of people here happy to back up Dave's advice. I'm one.

Sorikan9-Dec-07 9:57

Sorikan

9-Dec-07 9:57

I have books, and I do use them. I have ordered more books, and will use them when they arrive.

Simply telling me to read a book in no way helps me with this specific issue. I just want to know how to export as, with quicktime in vb.net, and how to query quicktime to report back with its list of export types.

I am not asking someone else to write my entire program for me as others here do, I simply need help in one spot. Telling me to read a book (that has nothing to do with quicktime) is about as useful as not even replying to my message.

I appreciate that I am a n00b, and that I have a LOT more to learn, but I feel as if his reply was simply a blow off.

Maybe i'm just in a bad mood today. maybe not.

Sorikan

Dave Kreskowiak10-Dec-07 2:10

10-Dec-07 2:10

Sorikan wrote:
Simply telling me to read a book in no way helps me with this specific issue.

The answer to your first question was that basic and fundamental. That's why you got that answer.

Sorikan wrote:
I just want to know how to export as, with quicktime in vb.net, and how to query quicktime to report back with its list of export types.

That is functionality specific to the QuickTime library. This is a question better asked in a forum specific to QuickTime development, not CodeProject. The odds of someone who has used that library seeing your post are very, very low. If you want an answer that specific, you're going to have to find a forum dedicated to QuickTime. Your question has nothing to do with VB.NET itself.

If you think this answer is a blowoff, I'll just keep my mouth shut and watch as your question goes unanswered, day after day after day. I believe is using the right tool for the job. If you believe walking into a Chevy dealership is the best place to ask questions about a BMW motorcycle, go ahead and wait for answer...

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

text file

bapu28898-Dec-07 8:16

bapu2889

8-Dec-07 8:16

Hello every one

I am new in vb.net and i am working on my assignment about add customer's data in to text file so i have used data writer to write data in to file now i want to add customer's name in to combo box so i have used data reader it's working but i dont want all the customer's details i just want customer's name in combo box

this is the code for write data

'create stream writer to add data in to text tile<br />
    Private Sub AddDataInFile()<br />
        Dim DataWriter As New System.IO.StreamWriter(MyFile, True)<br />
        'get data to variable<br />
        Title = Trim(cboTitle.SelectedItem.ToString)<br />
        FName = Trim(txtName.Text)<br />
        MName = Trim(txtMName.Text)<br />
        SName = Trim(txtSurname.Text)<br />
        Age = Trim(txtAge.Text)<br />
        'write data to file<br />
        DataWriter.WriteLine(Title + FName + MName + SName + Age)<br />
        DataWriter.Close()<br />
    End Sub

and this is for read data from text file

Private Sub AddDataInCombo()<br />
        'get all the name in combo box<br />
        Dim TempData As String<br />
        cboMyList.Items.Clear()<br />
        If System.IO.File.Exists(MyFile) = True Then<br />
            Dim DataReader As New System.IO.StreamReader(MyFile)<br />
            Do While DataReader.Peek <> -1<br />
                TempData = Trim(DataReader.ReadLine())<br />
                cboMyList.Items.Add(TempData)<br />
            Loop<br />
            DataReader.Close()<br />
        End If<br />
    End Sub

i dont want to display age in to combo box just name only, I want to use this name for search so next thing is how to search from name ???? Confused | :confused:

any help

waiting for your kind rep.

thanks

Re: text file

Christian Graus8-Dec-07 9:21

8-Dec-07 9:21

bapu2889 wrote:
DataWriter.WriteLine(Title + FName + MName + SName + Age)

This leaves you with one line, and no way to tell which bit is which. Write a line for each item of data, then you can read them a line at a time and know what each part of the data is.

MPEG encryption

zeeshi_247-Dec-07 23:31

zeeshi_24

7-Dec-07 23:31

which symmetric algothrim is efficient to encrypt the MPEG file in dotnet envirnment and through which technique reduce MPEG file in dotnet. plz mention specific algothrim and technique for MPEG file.

Re: MPEG encryption

Christian Graus7-Dec-07 23:46