Visual Basic

Re: Issue with "Windows Form App" Disappearing in VB.NET 2022

27-Aug-23 6:28

Because we are experienced we must have seen all error messages, and can guess which one the OP is talking about.

Richard MacCutchan27-Aug-23 1:29

PrinterSettings.CanDuplex appears to not be working

27-Aug-23 1:29

I assume that you are referring to Visual Studio 2022, as I do not think there is an application named VB.NET 2022. You should check that you have the Visual Basic workload correctly installed - use the "Extensions" -> "Manage Extensions" menu items. Also, check which template you are using: "Windows Forms App"* or "Windows Forms App (.NET Framework)". You can gather further information by examining the folders where your projects are being saved.

*The first of these use the new .NET core versions of the code and framework.

lewist5721-Aug-23 5:27

lewist57

21-Aug-23 5:27

Generating a small printing program. I have Brother color laser printer that can duplex print. However, when I get the CanDuplex value, it returns False:

pd.PrinterSettings.CanDuplex

The interesting thing is that checking for color capability works just fine:

pd.PrinterSettings.SupportsColor

Accessing the printer via conventional MS Office applications (as well as other applications like Acrobat) has no problem identifying that the printer can print in duplex.

Thoughts?

Pound to fit, paint to match

modified 21-Aug-23 11:37am.

Re: PrinterSettings.CanDuplex appears to not be working

Gerry Schmitz22-Aug-23 7:48

Gerry Schmitz

22-Aug-23 7:48

.Duplex is a get;set; ... Try setting it.

PrinterSettings.Duplex Property (System.Drawing.Printing) | Microsoft Learn

Duplex Enum (System.Drawing.Printing) | Microsoft Learn

"Before entering on an understanding, I have meditated for a long time, and have foreseen what might happen. It is not genius which reveals to me suddenly, secretly, what I have to say or to do in a circumstance unexpected by other people; it is reflection, it is meditation." - Napoleon I

Convert/Read SQL Image field into pdf

Benniit19-Jul-23 9:07

Benniit

19-Jul-23 9:07

Please I am using VB.net 2019 and Sql 2016 and I have the below codes which inserts the pdf into the database successfully. But retrieving it becomes a problem for me and that is not the case for an image. I want to convert and retrieve this line of code into pdf "Me.Pdf1.Image=Image.fromStream(ms)" which gives an exception because it is not an image but pdf in the database. Please help me. Thank

OpenFileDialog1.ShowDialog()         

txtPdfPath.Text = OpenFileDialog1.FileName'PDf file uploaded here

'Code to insert Pdf file and after connection has been established

Dim ms1 As New MemoryStream

frmBPA1.Pic1.Image.Save(ms1, frmBPA1.Pic1.Image.RawFormat)     

SqlQuery = "Insert into BPA1 (Pdf1)Values(@Pdf1)"

com.Parameters.AddWithValue("@Pdf1", ms1.ToArray)

com.CommandText = SqlQuery             

com.CommandType = CommandType.Text

SQLCon.Open()

com.ExecuteNonQuery()                     

SQLCon.Close()

'Code to retrieve the pdf file

Dim strQuery As String = "Select df1 from BPA1" 

SQLCon1.Open()                     

comFile = New SqlCommand(strQuery, SQLCon1)                     
comFile.Parameters.AddWithValue("@ReceiptNo", Me.txtReceiptNo.Text.Trim) 
daFile = New SqlDataAdapter(comFile) 
daFile.Fill(taFile)                     
If taFile.Rows(0).Item("Pic1") IsNot DBNull.Value Then                      
Dim img() As Byte   
img = taFile.Rows(0).Item("Pdf1")                         
Dim ms As New MemoryStream(img)                         
If img.Length <> "0" Then                         
Me.Pic1.Image = Image.FromStream(ms)                         
' Me.txtPdfPath.Text = File.FromStream(ms)                                      
End If

Richard MacCutchan19-Jul-23 22:18

19-Jul-23 22:18

txtPdfPath.Text = OpenFileDialog1.FileName'PDf file uploaded here

That is not uploading anything, OpenFileDialog gets filenamse from the uiser, but it does not read them.

frmBPA1.Pic1.Image.Save(ms1, frmBPA1.Pic1.Image.RawFormat)     

SqlQuery = "Insert into BPA1 (Pdf1)Values(@Pdf1)"

You create a memory stream object ms1 from some image data. You then try to save something that you have saved in the variable named Pdf1, but you have not placed any data in Pdf1 that I can see. And why are you treating a PDF file as image data?

Benniit20-Jul-23 4:22

Benniit

20-Jul-23 4:22

Thanks for the reply. Please storing the pdf is not a problem but retrieving it is issue for now. Please how do I retrieve this line Me.Pic1.Image = Image.FromStream(ms) and convert it into pdf. This line of code was used to retrieve image file correctly and I used the same process to store a pdf file but the above code to retrieve is it is the problem. Thanks

Dim strQuery As String = "Select ReceiptNo,Pic1 from BPA1 where ReceiptNo=@ReceiptNo"
                SQLCon1.Open()
                   comFile = New SqlCommand(strQuery, SQLCon1)
                   comFile.Parameters.AddWithValue("@ReceiptNo", Me.txtReceiptNo.Text.Trim)
                    daFile = New SqlDataAdapter(comFile)
                    daFile.Fill(taFile)
                    If taFile.Rows(0).Item("Pic1") IsNot DBNull.Value Then
                        Dim img() As Byte
                        img = taFile.Rows(0).Item("Pic1")
                        Dim ms As New MemoryStream(img)
                        If img.Length <> "0" Then
                        Me.Pic1.Image = Image.FromStream(ms)
                        ' Me.txtPdfPath.Text = File.FromStream(ms)
                    Else
                            Me.Pic1.Image = Nothing
                        End If
                    End If

Richard MacCutchan20-Jul-23 4:32

20-Jul-23 4:32

If you cannot retrieve the PDF data then how can you be sure that you have saved it correctly? As I mentioned in my previous response, I cannot see any PDF data being saved.

All digits in string after W

jschell22-Aug-23 6:56

jschell

22-Aug-23 6:56

That demonstrates a misunderstanding of what a PDF is.

To view an image such as a png you use an image viewer that supports png images. To view a PDF you use a PDF viewer. Those are two different things.

Your thought process should be - first section.
1. Find the file (it does not matter that it is a PDF.)
2. Store the bytes in the file as binary/raw in the database. At this point it is not actually a PDF (and certainly not an image), but rather just binary/raw data.

Second section
1. Load the binary data
2. Handle the binary data as a PDF file. Such as figuring out how to either use a PDF viewer or deferring to something (like browser).

From the above this means that the following code is always going to be wrong. Because it is not an image.

Image.FromStream(ms)

Scanner Device

Mateo Francisco18-Jul-23 20:50

Mateo Francisco

18-Jul-23 20:50

How to access scanner device in vb?

Re: Scanner Device

Ralf Meier18-Jul-23 21:15

Ralf Meier

18-Jul-23 21:15

This question can only be answered with the documentation of this device and perhaps additional information from the distributer.

Re: Scanner Device

Victor Nijegorodov19-Jul-23 2:04

Victor Nijegorodov

19-Jul-23 2:04

You could try the WIA Application Programming Interface - Win32 apps | Microsoft Learn

Dennis B. Muth6-Jul-23 19:41

Dennis B. Muth

6-Jul-23 19:41

<pre>Hi, i am quit new to .net. But this should be easy for you guys

the output of a string is 202205W24 or 202205W1

I want the last digit so 24 or 1 from the string and use those digits as a string</pre>

Richard MacCutchan6-Jul-23 22:01

6-Jul-23 22:01

You could use the String.Split Method (System) | Microsoft Learn[^] method to separate at the "W" character. Or perhaps the Regex Class (System.Text.RegularExpressions) | Microsoft Learn[^].

Richard Deeming6-Jul-23 22:01

Richard Deeming

6-Jul-23 22:01

Simple enough:

VB.NET

Dim source As String = "202205W24"
Dim index As Integer = source.IndexOf("W"c)
Dim result As String = If(index = -1, String.Empty, source.Substring(index + 1))

This will return the string after the first "W" character, or an empty string if there isn't a "W".

If the source could contain multiple "W" characters, and you want to return the string after the last "W", use LastIndexOf instead of IndexOf.

String.IndexOf Method (System) | Microsoft Learn[^]
String.LastIndexOf Method (System) | Microsoft Learn[^]
String.Substring Method (System) | Microsoft Learn[^]
If Operator - Visual Basic | Microsoft Learn[^]

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

jschell7-Jul-23 11:49

jschell

7-Jul-23 11:49

Was the extra 'c' a test for the observant?

Richard Deeming9-Jul-23 21:16

Richard Deeming

9-Jul-23 21:16

No, it's how VB.NET declares a Char literal:
Type Characters - Visual Basic | Microsoft Learn[^]

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

CURL POST request in VB.NET (json)

jschell10-Jul-23 3:34

jschell

10-Jul-23 3:34

Interesting.

Member 118569042-Jul-23 20:02

Member 11856904

2-Jul-23 20:02

I've been struggling to send this CURL request in VB.NET and hope someone can help..

Here is a link to the documentation of the exact request I'm trying to send.

This is the sample CURL request:

curl -u 'username:token' 'https://api.dev.name.com/v4/domains' -X POST -H 'Content-Type: application/json' --data '{"domain":{"domainName":"example.org"},"purchasePrice":12.99}'

Here is the code that I put together and tested:

Dim uri As New Uri("https://api.dev.name.com/v4/domains")
Dim myUsername As String = txtUsername.Text.Trim & ":" & txtApiKey.Text.Trim
Dim data As String = "{""domain"":{""domainName"":""example.org""},""purchasePrice"":12.99}"
Dim dataByte As Byte()

request = WebRequest.Create(uri)
request.Headers.Add(HttpRequestHeader.Authorization, "Basic " & Convert.ToBase64String(Encoding.UTF8.GetBytes(myUsername)))
request.ContentType = "application/json"
request.UserAgent = "Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/49.0.2623.87 Safari/537.36"
request.Method = "POST"

dataByte = Encoding.UTF8.GetBytes(data)
request.GetRequestStream.Write(dataByte, 0, dataByte.Length)

Dim myResp As HttpWebResponse
myResp = request.GetResponse()
Dim myreader As New System.IO.StreamReader(myResp.GetResponseStream)
WebResponse = myreader.ReadToEnd()

MsgBox(WebResponse)

However, the code above always returns a (400) Bad Request.

Here is another variation of pretty much the same code which I tried:

Dim myReq As HttpWebRequest
Dim myResp As HttpWebResponse
Dim myUsername As String = "username:token"

myReq = HttpWebRequest.Create("https://api.dev.name.com/v4/domains")

myReq.Method = "POST"
myReq.ContentType = "application/json"
myReq.Headers.Add("Authorization", "Basic " & Convert.ToBase64String(Encoding.UTF8.GetBytes(myUsername)))

Dim myData As String = "{""domain"":{""domainName"":""example.org""},""purchasePrice"":12.99}"
Dim dataBytes As Byte() = Encoding.UTF8.GetBytes(myData)
myReq.GetRequestStream.Write(dataBytes, 0, dataBytes.Length)

myResp = myReq.GetResponse()
Dim myreader As New System.IO.StreamReader(myResp.GetResponseStream)
WebResponse = myreader.ReadToEnd()

MsgBox(WebResponse)

But, as you can already guess, it also returns a 400 (Bad Request).

Re: CURL POST request in VB.NET (json)

Andre Oosthuizen3-Jul-23 0:38

Andre Oosthuizen

3-Jul-23 0:38

In your CURL command, you are using the '-u' option to provide the username and token as a basic authentication header. In your VB.NET code, you're attempting to encode the credentials manually. Make sure that 'myUsername' has the correct username and token values, and try using the Credentials property of the 'WebRequest' object instead of manually adding the header -

request.Credentials = New NetworkCredential(txtUsername.Text.Trim, txtApiKey.Text.Trim)

The JSON data you're sending in the CURL command needs to be properly serialized before sending it, we use Newtonsoft.Json, not sure if it will help in your situation, if so you can use it where you create an anonymous type to represent the JSON structure and then serializes it using 'JsonConvert.SerializeObject()' -

Imports Newtonsoft.Json

Dim domainData As New With {
    .domain = New With {
        .domainName = "example.org"
    },
    .purchasePrice = 12.99
}

Dim data As String = JsonConvert.SerializeObject(domainData)

You need to close the request stream before sending the request -

request.GetRequestStream.Close()

Instead of directly displaying returned responses in a message box, you can return the status codes and any error messages further by using -

Dim statusCode As Integer = CType(myResp, HttpWebResponse).StatusCode
Dim responseText As String = String.Empty

If statusCode = HttpStatusCode.OK Then
    Dim myreader As New System.IO.StreamReader(myResp.GetResponseStream)
    responseText = myreader.ReadToEnd()
End If

MsgBox(responseText)

I hope any of these suggestions help.

Re: CURL POST request in VB.NET (json)

Member 118569043-Jul-23 22:37

Member 11856904

3-Jul-23 22:37

Hey Andre,
Thanks so much for your detailed reply and explanation! I imported Newtonsoft.json no problem and tried implementing your changes. On a positive note, I'm no longer getting a (400) Bad Request reply. However, I'm now getting a (401) Unauthorized response. I've double checked my login details and made sure they were correct. I also tried testing in both the OTE (operational test environment) and the LIVE environment because the details are slightly different for each, but received the same error on both.

Could this be due to how the credentials are now being passed?

Also, if I close "GetRequestStream" before sending the request then I get a message the connection was suddenly terminated when trying to send the request. However, if I put it directly after writing to the stream that issue goes away. Here is a look at my updated code:

Dim uri As New Uri("https://api.dev.name.com/v4/domains")
Dim domainData As New With {
    .domain = New With {
        .domainName = "example.org"
    },
    .purchasePrice = 12.99
}

Dim data As String = JsonConvert.SerializeObject(domainData)
Dim dataByte As Byte()

request = WebRequest.Create(uri)
request.Credentials = New NetworkCredential(txtUsername.Text.Trim, txtApiKey.Text.Trim)
request.ContentType = "application/json"
request.Method = "POST"

dataByte = Encoding.UTF8.GetBytes(data)
request.GetRequestStream.Write(dataByte, 0, dataByte.Length)
request.GetRequestStream.Close()

Dim myResp As HttpWebResponse
myResp = request.GetResponse()
Dim statusCode As Integer = CType(myResp, HttpWebResponse).StatusCode
Dim responseText As String = String.Empty

If statusCode = HttpStatusCode.OK Then
Dim myreader As New System.IO.StreamReader(myResp.GetResponseStream)
responseText = myreader.ReadToEnd()
End If

MsgBox(responseText)

Any suggestions? Thanks again!

Re: CURL POST request in VB.NET (json)

Andre Oosthuizen3-Jul-23 23:22

Andre Oosthuizen

3-Jul-23 23:22

Closing the stream - my bad, I added it prematurely. D'Oh! | :doh:

Please disregard my suggestion to close the request stream before sending the request or add it after the stream were read.

(401) Unauthorized response, it seems that your server did not accept the given credentials as valid. - There are a few things you can try.

Make sure that the API you are accessing is expecting basic authentication and that the credentials should be provided in the Authorization header. If the API expects a different authentication method, such as API keys or OAuth, you will need to adjust your authentication to accept the request as per their requirements.

Check that the API endpoint you are using (https://api.dev.name.com/v4/domains) is 100% correct.

To isolate or debug the issue, you could try using a different client, such as cURL or Postman, with the same credentials and endpoint. This might help determine if the problem lies with the code or if there might be an issue with the credentials or API itself.

Check your API documentation to make sure that you are following the correct authentication process and that there are no additional steps required.

Hope this points you in the right direction.

record device!!

Member Alienoiz19-Jun-23 6:31

Member Alienoiz

19-Jun-23 6:31

hey..me again..at least i keep the forum moving :P ...thanks for your help...i have another question sorry...
i have this code

VB.NET

<pre>Public Class SSVoiceRecordCtrl

    '-----------------------------------------------------
    '   Name    :   SoundRecording.cls
    '   Author  :   Suresh Suthar
    '
    '   Notes   :   A record class, which when turned
    '           :   into an object lets you record sound
    '           :   through mic, cd-line, etc... into a file
    '-----------------------------------------------------

    ' -=-=-=- PROPERTIES -=-=-=-
    ' FileName      Determines the name of the file used (wav only)
    ' State        The current status of the object (Read Only)
    'SoundFormat    The Formate for Recording File

    ' -=-=-=- METHODS -=-=-=-=-
    ' PauseRecord     Toggle pause the record (if you are already recording)
    ' StartRecord     Start Recording (you must have been set a good filename)
    ' StopRecord      Stop recording (and will save the sound into <filename>)

    '-------------------------------------------------------------
    ' NOTES
    ' -----
    '
    ' Before you can Start or Stop recording you must set a good
    ' filename which the class will use to save your sound into.
    '--------------------------------------------------------------

    ''>>How To Use (Sample Coding)
    ''First Add This Control To Your Project And then Named it rec
    'Try
    'If rec.State = SSVoiceRecordCtrl.SSVoiceRecordCtrl.MyState.Recording Or rec.State = SSVoiceRecordCtrl.SSVoiceRecordCtrl.MyState.Paused Then
    '     rec.CloseRecord()
    'End If
    'If rec.State = SSVoiceRecordCtrl.SSVoiceRecordCtrl.MyState.Idle Then
    '              rec.SoundFormat = SSVoiceRecordCtrl.SSVoiceRecordCtrl.SoundFormats.Mono_6kbps_8_Bit
    '              rec.FileName = "C:\Test.wav" 'Wav File Only (Extension Should Be There)
    '              rec.StartRecord()
    'End If
    'Catch ex As Exception
    '      MsgBox("Sound Recording Error : " & ex.Message & vbNewLine & "Please Contact IT Department", MsgBoxStyle.Information)
    'End Try
    ''Stop Recording And Save the File
    'rec.StopRecord
    ''>>>

    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

    Dim lSamples, lRet, lBits, lChannels As Integer
    Dim iBlockAlign As Short
    Dim lBytesPerSec As Integer

    'For Images
    Dim J As Integer = 1
    Public Enum SoundFormats
        Mono_6kbps_8_Bit
        Mono_8kbps_8_Bit
        Mono_11kbps_8_Bit
        Mono_16kbps_8_Bit
        Mono_22kbps_8_Bit
        Mono_32kbps_8_Bit
        Mono_44kbps_8_Bit
        Mono_48kbps_8_Bit
        Stereo_24kbps_16_Bit
        Stereo_32kbps_16_Bit
        Stereo_44kbps_16_Bit
        Stereo_64kbps_16_Bit
        Stereo_88kbps_16_Bit
        Stereo_1288kbps_16_Bit
        Stereo_176kbps_16_Bit
        Stereo_192kbps_16_Bit
    End Enum

    Public Enum MyState
        Idle
        Recording
        Paused
    End Enum

    Private xState As MyState
    Public ReadOnly Property State() As MyState
        Get
            State = xState
        End Get
    End Property

    Private _SoundFormat As SoundFormats
    Public Property SoundFormat() As SoundFormats
        Get
            SoundFormat = _SoundFormat
        End Get
        Set(ByVal Value As SoundFormats)
            _SoundFormat = Value
        End Set
    End Property

    Private Sub GetSoundFormat()
        If _SoundFormat = SoundFormats.Mono_6kbps_8_Bit Then
            lSamples = 6000 : lBits = 8 : lChannels = 1
        ElseIf _SoundFormat = SoundFormats.Mono_8kbps_8_Bit Then
            lSamples = 8000 : lBits = 8 : lChannels = 1
        ElseIf _SoundFormat = SoundFormats.Mono_11kbps_8_Bit Then
            lSamples = 11025 : lBits = 8 : lChannels = 1
        ElseIf _SoundFormat = SoundFormats.Mono_16kbps_8_Bit Then
            lSamples = 16000 : lBits = 8 : lChannels = 1
        ElseIf _SoundFormat = SoundFormats.Mono_22kbps_8_Bit Then
            lSamples = 22050 : lBits = 8 : lChannels = 1
        ElseIf _SoundFormat = SoundFormats.Mono_32kbps_8_Bit Then
            lSamples = 32000 : lBits = 8 : lChannels = 1
        ElseIf _SoundFormat = SoundFormats.Mono_44kbps_8_Bit Then
            lSamples = 44100 : lBits = 8 : lChannels = 1
        ElseIf _SoundFormat = SoundFormats.Mono_48kbps_8_Bit Then
            lSamples = 48000 : lBits = 8 : lChannels = 1
        ElseIf _SoundFormat = SoundFormats.Stereo_24kbps_16_Bit Then
            lSamples = 6000 : lBits = 16 : lChannels = 2
        ElseIf _SoundFormat = SoundFormats.Stereo_32kbps_16_Bit Then
            lSamples = 8000 : lBits = 16 : lChannels = 2
        ElseIf _SoundFormat = SoundFormats.Stereo_44kbps_16_Bit Then
            lSamples = 11025 : lBits = 16 : lChannels = 2
        ElseIf _SoundFormat = SoundFormats.Stereo_64kbps_16_Bit Then
            lSamples = 16000 : lBits = 16 : lChannels = 2
        ElseIf _SoundFormat = SoundFormats.Stereo_88kbps_16_Bit Then
            lSamples = 22050 : lBits = 16 : lChannels = 2
        ElseIf _SoundFormat = SoundFormats.Stereo_1288kbps_16_Bit Then
            lSamples = 32000 : lBits = 16 : lChannels = 2
        ElseIf _SoundFormat = SoundFormats.Stereo_176kbps_16_Bit Then
            lSamples = 44100 : lBits = 16 : lChannels = 2
        ElseIf _SoundFormat = SoundFormats.Stereo_192kbps_16_Bit Then
            lSamples = 48000 : lBits = 16 : lChannels = 2
        End If
        iBlockAlign = lChannels * lBits / 8
        lBytesPerSec = lSamples * iBlockAlign
    End Sub
    Private FName As String
    Public Property FileName() As String
        Get
            FileName = FName
        End Get
        Set(ByVal Value As String)
            FName = Value
        End Set
    End Property


    Public Function StartRecord() As Boolean
        Call GetSoundFormat()
        On Error GoTo ER
        If FName = "" Then GoTo ER
        Dim i As Integer
        i = mciSendString("open new type waveaudio alias capture", vbNullString, 0, 0)
        I = mciSendString("set capture samplespersec " & lSamples & " channels " & lChannels & " bitspersample " & lBits & " alignment " & iBlockAlign & " bytespersec " & lBytesPerSec, vbNullString, 0, 0)
        I = mciSendString("record capture", vbNullString, 0, 0)
        xState = MyState.Recording
        StartRecord = True
        picStatus.Image = imgList.Images(1)
        Timer1.Enabled = True
        Exit Function
ER:
        StartRecord = False
        Dim SSVoiceRecordControlExec As New ArgumentException("File Name Not Specified.")
        Throw SSVoiceRecordControlExec
    End Function

    Public Function StopRecord() As Boolean
        On Error GoTo ER
        If FName = "" Then GoTo ER
        Dim i As Integer
        I = mciSendString("save capture " & FName, vbNullString, 0, 0)
        I = mciSendString("close capture", vbNullString, 0, 0)
        xState = MyState.Idle
        StopRecord = True
        picStatus.Image = imgList.Images(0)
        Timer1.Enabled = False
        Exit Function
ER:
        i = mciSendString("close capture", vbNullString, 0, 0)
        StopRecord = False
        Dim SSVoiceRecordControlExec As New ArgumentException("File Name Not Specified.")
        Throw SSVoiceRecordControlExec
    End Function

    ''Closing Recording But Not Saved
    Public Sub CloseRecord()
        Dim i As Integer
        i = mciSendString("close capture", vbNullString, 0, 0)
        xState = MyState.Idle
        picStatus.Image = imgList.Images(0)
        Timer1.Enabled = False
    End Sub

    Private Sub Class_Initialize_Renamed()
        xState = MyState.Idle
    End Sub
    Private Sub Class_Terminate_Renamed()
        StopRecord()
    End Sub
    Protected Overrides Sub Finalize()
        Class_Terminate_Renamed()
        MyBase.Finalize()
    End Sub

    Public Function PauseRecord() As Boolean
        On Error GoTo ER
        If FName = "" Then GoTo ER
        Dim RS As String
        Dim cb, I As Integer
        RS = Space(128)
        If xState = MyState.Paused Then
            I = mciSendString("record capture", vbNullString, 0, 0)
            xState = MyState.Recording
            picStatus.Image = imgList.Images(1)
            Timer1.Enabled = True
        ElseIf xState = MyState.Recording Then
            I = mciSendString("pause capture", vbNullString, 0, 0)
            xState = MyState.Paused
            picStatus.Image = imgList.Images(0)
            Timer1.Enabled = False
        End If
        PauseRecord = True
        Exit Function
ER:
        PauseRecord = False
        Dim SSVoiceRecordControlExec As New ArgumentException("File Name Not Specified.")
        Throw SSVoiceRecordControlExec
    End Function

    Private Sub SSVoiceRecordCtrl_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        picStatus.Image = imgList.Images(0)
    End Sub

    Private Sub picStatus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles picStatus.DoubleClick
        System.Diagnostics.Process.Start("SNDVOL32.EXE")
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If J = 1 Then
            picStatus.Image = imgList.Images(J)
            J += 1
        Else
            picStatus.Image = imgList.Images(J)
            J = 1
        End If
    End Sub
End Class

i understand the code by i do not see where to change the sound source for ex. to line in...
they say this

Notes   :   A record class, which when turned
   '           :   into an object lets you record sound
   '           :   through mic, cd-line, etc... into a file

Re: record device!!

Richard MacCutchan19-Jun-23 6:50