|
how could i select more than one pattern of FileListBox in vb 6.0
Noshaba Mariam
|
|
|
|
|
File1.Pattern = "*.exe;*.txt"
|
|
|
|
|
Thanx alot It helped me very much
|
|
|
|
|
Alright I have googled this and even looked on msdn and i'm not sure what i'm doing wrong.
in webconfig I have the following
<code>configuration>
<appSettings/>
<connectionStrings>
<add name="prodCS" connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\mydb.mdb;User Id=admin;Password=;"/>
</connectionStrings></code>
then in my aspx.vb file i have this but i keep getting a syntax error about expected identifier.
<code>Dim connString As String = _
ConfigurationManager.ConnectionStrings["prodCS"].ConnectionString</code>
Help would be greatly appreciated.
Win32newb
"If I wrote a book like I code. It would be one page thick and contain only one word (DUH!)"
-- modified at 0:33 Monday 27th February, 2006
|
|
|
|
|
Hi Everyone,
I have one query in VB 6.0, My query is
" can we create table in SQl Server or Ms Acsess using VB 6.0 ? "
If yes then, how ist possible ?
|
|
|
|
|
Yes, but if the table will already exists you will get an error. you can create table as:
Dim cn as new Connection
cn.ConnectionString ="Connectionstring"
cn.open
cn.Execute("CREATE TABLE tNewTable(
Field1 Int NOT NULL ,
Field2 Int NOT NULL )")
Regards,
Javed
-- modified at 0:37 Monday 27th February, 2006
|
|
|
|
|
Does anyone know why Intellisense would not work inside of the Command/Immediate window?
Intellisense works when I am coding but when I am debugging and try to look at the values using the Immediate Window, Intellisense doesn't work. Is there an option somewhere for this? I have tried creating a brand new solution with a brand new project and this did not help.
Thanks,
Aaron
|
|
|
|
|
Hi,
Which VS.NET version ur using???
If you are using VS.NET 2002 than u will not get Intellisense in command/immediate window...
Regards,
Ritesh
|
|
|
|
|
|
Also, I did type "immed" and am running the Command Window in Immediate mode.
|
|
|
|
|
I'm trying to attach some files. For this I'm using Show Open common dialogue control. But with this I could only be able to open/select one file at a time.
Is there any property of common dialogue control with which i could be able to select multiple files at a time by pressing shift key.
my code is as follows
Private Sub fOpen_Click()
cdlg1.CancelError = True
On Error GoTo ErrHandler
cdlg1.filename = ""
cdlg1.DialogTitle = "Open Image File"
cdlg1.Filter = "Image File(*.jpeg,*.jpg)|*.jpeg;*.jpg"
cdlg1.FilterIndex = 1
cdlg1.ShowOpen
ErrHandler:
Exit Sub
End Sub
Noshaba Mariam
|
|
|
|
|
Set
cdlg1.Multiselect = True
!alien!
|
|
|
|
|
if i use this, following error encounters
Method or Data Member not found
|
|
|
|
|
'I am using VB.NET Not VB 6
Dim op As New OpenFileDialog
op.Multiselect = True
If op.ShowDialog(Me) = DialogResult.OK Then
Dim files() As String=op.FileNames
End If
!alien!
|
|
|
|
|
oh sorry it was by mistake that i didn't mentioned that i'm using vb 6 sorry
|
|
|
|
|
VB6, huh? OK. It's almost as easy, but surely not obvious how to do it. You have to set the Flags property of the CommonDialog before you show it.
Private Sub fOpen_Click()
cdlg1.CancelError = True
On Error GoTo ErrHandler
cdlg1.filename = ""
cdlg1.DialogTitle = "Open Image File"
cdlg1.Filter = "Image File(*.jpeg,*.jpg)|*.jpeg;*.jpg"
cdlg1.FilterIndex = 1
cdlg1.Flags = &H200
cdlg1.ShowOpen
ErrHandler:
Exit Sub
End Sub
You can find more information about that, and other options, here[^].
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
-- modified at 13:28 Monday 27th February, 2006
|
|
|
|
|
Thnx Dave u have solved my problem it really works
Noshaba
|
|
|
|
|
can this graph load all the data from database and present the graph by its own by by clicking a button?
sdasasd
|
|
|
|
|
Can you use the ZedGraph control in VB.NET?
Yes! Absolutely! In fact, it comes with VB.NET sample code.
Will it magically know how to read data from your database and plot it for you?
Of course not. It's your job to fill the gap. You have to query the data from the database. You have to tell the graph how you want the data plotted. Like how many plots, x/y axes setup, legend names, etc. Just look at the examples.
|
|
|
|
|
hi.. i have a problem about vb. how to link vb to other software, for example, if i press one button in vb, other software will appear, like icprog or else??
Someone please help me....
areon25
|
|
|
|
|
Use
Call Shell (Path of the Software Exe)
Regards,
Javed
|
|
|
|
|
Good old BASIC from years ago had a sound function, where you specify the frequency, duration, and maybe volume of a tone to play. Is there such a thing in Visual Basic? Or any other way to generate a tone of specified freq., duration and volume using the standard Windows sound device? I could only find info for PlaySound, which plays .wav files, but I need to dynamically vary a simple tone.
Thanks- this is my first post.
Jon.
|
|
|
|
|
|
Yup- that works. Hopefully I can modify it to allow dynamic adjustment of freq, duration and volume.
Thanks!
|
|
|
|
|
<pre>
Option Explicit
Private Declare Function GetMem8 Lib "msvbvm60" (ByRef src As Any, ByRef Dst As Any) As Long
Private Declare Function GetMem4 Lib "msvbvm60" (ByRef src As Any, ByRef Dst As Any) As Long
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundW" (ByRef pData As Any, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Declare Function Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) As Long
Private Const SND_MEMORY = &H4
Dim x As Integer
Private Function PlayTone(ByVal fFrequency As Single, ByVal fDurationMS As Single) As Boolean
Dim bData() As Byte
Dim lSize As Long
Dim lSamples As Long
Dim lIndex As Long
Dim fPhase As Single
Dim fDelta As Single
lSamples = 44.1 * fDurationMS
lSize = lSamples + 44
fDelta = fFrequency / 44100 * 6.28318530717959
ReDim bData(lSize - 1)
GetMem4 &H46464952, bData(0): GetMem4 CLng(lSize - 8), bData(4)
GetMem8 233861439252950.2551@, bData(8)
GetMem8 28147927167.7968@, bData(16)
GetMem8 18940805779.77@, bData(24)
GetMem8 702234480110259.4049@, bData(32)
GetMem4 lSamples, bData(40)
For lIndex = 0 To lSamples - 1
bData(lIndex + 44) = Sin(fPhase) * 127 + 128
fPhase = fPhase + fDelta
If fPhase > 6.28318530717959 Then fPhase = fPhase - 6.28318530717959
Next
PlaySound bData(0), 0, SND_MEMORY
End Function
Private Sub Form_Load()
For x = 300 To 1100 Step 9
PlayTone x, 8
Next
For x = 900 To 300 Step -9
PlayTone x, 7
Next
End
End Sub
</pre>
|
|
|
|