Visual Basic

17-Dec-04 6:13

Uhhh, why? PowerPoint can already play the music when a specific slide is shown. All you have to do is tell it which file to play...

Without writing a specific file system extension, you can't reliably monitor the file to see if it was opened by some other process. In order to get this to PARTIALLY work, you would have to constantly try and open the file exclusively, denying any shared access, just to see if the file was opened by some other process. If the file opens, no other process has it open. If it doesn't open, something else has it open. But, there are multiple problems with doing this:

1) You must try to open file, repeatedly, fast enough so that you don't miss the file being opened, read, and closed, in between your attempts to open the file. This will have the effect of degrading system performance and slowing down all other applications.

2) As explained in 1, you could easily miss a file being open, then closed.

3) If your monitor manages to open the file, you will automatically prevent any other app from opening that file. This will cause your presentation to stop or possibly crash altogether.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Making Monitor Black

Member 158672017-Dec-04 2:50

Member 1586720

17-Dec-04 2:50

How to make Display Blank Screen for a Specified Period in VB is there any function.

Dave Kreskowiak17-Dec-04 6:00

17-Dec-04 6:00

Why would you want to do this, considering your app has to play nice with others on a SHARED system?

If I was using your app and it blanked the entire screen, preventing me from using my other apps, I'd click close on your app then, promptly, uninstall it...

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Member 158672017-Dec-04 14:23

Member 1586720

17-Dec-04 14:23

i want to do some background process which should not display

kindly help me

OICU81217-Dec-04 19:29

17-Dec-04 19:29

Ramesh Yadavalli wrote:
i want to do some background process which should not display

There are all kind of thing you can do with a background process without anyone seeing it. But making the whole screen black sound like you're trying to make a prank or get fired from your job!

But it's really easy

<br />
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        Me.BackColor = Color.Black<br />
        Me.FormBorderStyle = FormBorderStyle.None<br />
        Me.WindowState = FormWindowState.Maximized<br />
    End Sub<br />

Dave Kreskowiak18-Dec-04 4:37

Help !! Event not Raise in VB.net

18-Dec-04 4:37

Your background process doesn't have to have a form. Just write up a class that does what you want and launch it from whereever you need to as a seperate Thread. Just make sure you tag that thread Background = True.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Help with Browse

mex_young17-Dec-04 1:04

mex_young

17-Dec-04 1:04

I download a program located at ftp://ftp.softcircuits.com/vbsrc/browse.zip and being a newbie, i failed to make the code work. i mean to make my code work with the program... the code is given below:

Private Sub Command1_Click()

Dim myfile
Dim i As Integer

For i = 1 To 999
myfile = Dir("C:\" & i & ".bmp")
If Not myfile = i & ".bmp" Then
fSaveGuiToFile ("C:\" & i & ".bmp")
Exit For
End If
Next i

End Sub

I would like the user to choose the path like the one at ftp://ftp.softcircuits.com/vbsrc/browse.zip but failed to integrate this code of mine to work with it. I dont want the file to be saved at C:\ but to the location the user specifies... could you please help me out. thanx

Re: Help with Browse

Purple Monk17-Dec-04 4:45

Purple Monk

17-Dec-04 4:45

What are you trying to do here? That is the weirdest piece of code i think i've ever seen.

What does
mex_young wrote:
fSaveGuiToFile

do?

I am happy to help as i think it quite a simple solution, but can you explain the problem a little better.

If you could please explain what you need to do?

Thanks

"If i was king cigarettes would be free."

Re: Help with Browse

mex_young17-Dec-04 23:23

mex_young

17-Dec-04 23:23

I actually want the code of mine which was pasted there to work with the program where u may download in zip format.

The code of MINE which is pasted is actually a part of my script which saves a .bmp file to C:\ automatically when it is pressed! and changes the file name to something like - 001.bmp, 001.bmp... etc! and goes on as the button is pressed. i hope you understand...thanx

stv17-Dec-04 0:36

stv

17-Dec-04 0:36

I have created a Event in a form and raised it in another class within the same project.

The "RaiseEvent" was executed in the class, but the event was not trigger in the form.

Anybody have any ideas???

Re: Help !! Event not Raise in VB.net

OICU81217-Dec-04 5:38

Re: Help with a script [EDITED]

17-Dec-04 5:38

I'd check first to see if the EVENT on the form has a handler. Sometimes if you delete or cut/paste a control you'll loose the handler for the event but the event stays and you're left scratching your head.

Sub MyEvent(byval sender as object, byval e as system.event) handles MyClass.MyEvent

-or-

addHandler MyClass.MyEvent, addressOf MyEvent '<--Handler won't get deleted if you cut/paste

Other thing that happens to me is some other event raises an exception and causes the RaiseEvent to fail. Especially if i have a Try Catch with an empty catch that i havent coded in a response yet(not a good practice)

FTP

nitin_ion17-Dec-04 0:27

nitin_ion

17-Dec-04 0:27

How can I create FTP client that can automatically download files from server at specified interval and place it on a specified location on local system.

Help with a script

Anonymous16-Dec-04 22:37

Anonymous

16-Dec-04 22:37

Hello guys
any one can help me to write a script which will rename Neoware thin clients
hostnames?
I'll appreciate it!!!
Thanks in advance

Dave Kreskowiak17-Dec-04 5:56

Re: Help with a script [EDITED]

17-Dec-04 5:56

This can't be done in any of the scripting languages, like VBScript. It must be done using a full application laungage and this app MUST be run by an Administrator of the machine in order for it to work.

The API Function that you're looking for to do this is SetComputerName[^]. Once the change is made, the machine MUST be rebooted for the change to take effect.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Anonymous23-Dec-04 16:07

Anonymous

23-Dec-04 16:07

Thanks Dave

The OS is WinCE.
Can you give me a simple steps on how to write a simple application to rename hostnames?
and what language? Can I use C#?
Appreciate your time!!!

Re: Help with a script [EDITED]

Dave Kreskowiak23-Dec-04 16:17

Columns in a string in VB.NET

23-Dec-04 16:17

The language you use is up to you. There's nothing special about an app like this. All you need to do is get a string, however you choose, that represents the hostname you want to change the machine anme to, then make a call to SetComputerName. That's it.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Chaos Machine16-Dec-04 18:11

Chaos Machine

16-Dec-04 18:11

Hello everybody. I am trying to create a string which will have spaces in between words that create "columns". In vb6 i used to use tab(<and the="" number="" of="" column="">). EG string 3 = string1 & tab(5) & string2 and i would have the following:

areaName PostCode Suburb
test 125 the suburb
test2 225 another suburb

so when i use the print command to have it in columns.

How to i do that in vb.net. Thank you in advance.

Still trying to find the way

Re: Columns in a string in VB.NET

OICU81216-Dec-04 18:37

Database access through VB.Net

16-Dec-04 18:37

I just had that same problem. Here is an example:

<br />
' Draw all font names on form<br />
        Dim gr As Graphics = Me.CreateGraphics<br />
        gr.Clear(Color.White)<br />
<br />
        ' Prepare a message with tabs and carriage returns.<br />
        Dim msg As String = String.Format("{0}Column 1{0}Column 2{0}Column 3{1}" _<br />
            & "Row 1{0}Cell (1,1){0}Cell (1,2){0}Cell (1,3){1}" _<br />
            & "Row 2{0}Cell (2,1){0}Cell (2,2){0}Cell (2,3){1}", _<br />
            ControlChars.Tab, ControlChars.CrLf)<br />
        Dim fnt As New Font("Arial", 12)<br />
<br />
        Dim strFormat As New StringFormat()<br />
        ' Set the tab stops.<br />
        Dim tabStops() As Single = {80, 140, 200}<br />
        strFormat.SetTabStops(0, tabStops)<br />
        ' Draw the text with specified tab stops.<br />
        gr.DrawString(msg, fnt, Brushes.Black, 20, 20, strFormat)<br />
<br />
        fnt.Dispose()<br />
        gr.Dispose()<br />
<br />

Hope that hels you!

nyjcr16-Dec-04 14:39

nyjcr

16-Dec-04 14:39

Hi,
Does anybody know where I can find some information on Database
access/update/delete through VB.NET

I'm creating a program with multiple forms, which needs to select,add,delete
record from an ACCESS DB.

It is my first DB project and I'm totally lost...

Any help I would greatly appreciate it...

Thank you,
CJ Confused | :confused:

Chaos Machine16-Dec-04 18:06

Chaos Machine

16-Dec-04 18:06

Hello CJ. Ok i am new too in vb.net and i had such a problem to find a solution with Access and VB.NET. BUT i found the answer that you are looking for too. Here it is:

************************* Searching in a database:

Dim strConnection As String = OleDbConnection1.ConnectionString

(the connectionString will be a string created from the VB when you specify where your database is)

Dim connect As New OleDbConnection(strConnection)
Dim test As String
Dim te As String
Dim SQLString As String
connect.Open()
te = txtAreaToSearch.Text
SQLString = "SELECT * from informations WHERE Area =" & "'" & te & "'"
Dim cmd As New OleDbCommand(SQLString, connect)
Dim reader As OleDbDataReader = cmd.ExecuteReader()
While reader.Read()
txtCouncilName.Text = reader.GetValue(1) 'gets the value of the first attribute in your databse eg postCodeOfTheArea

End While
reader.Close()
connect.Close()

In this example you will need a OleDbConnection1 and a OdbcCommand1 objects. Also the following must be put at the start :
Imports System
Imports System.Data
Imports System.Data.OleDb

What the example does is to search in a database on the TABLE informations for an AREA with the name that is in a TEXTBOX called txtAreaToSearch.

********************************** Deleting an entry
Dim SQLStringUpdateKeys As String
Dim SQLStringUpdateArea As String
Dim icount As Integer
Dim icount1 As Integer
Dim strConnection As String = OleDbConnection1.ConnectionString
Dim connect As New OleDbConnection(strConnection)

Dim inputOption As Integer

inputOption = MsgBox("Are you sure you want to delete this record", MsgBoxStyle.OKCancel, "Are you sure?")
If inputOption = 1 Then
connect.Open()
On Error Resume Next
SQLStringUpdateArea = "DELETE FROM informations WHERE Area = '" & txtAreaName.Text & "'"
Dim cmd1 As New OleDbCommand(SQLStringUpdateArea, connect)
icount1 = cmd1.ExecuteNonQuery
connect.Close()

MessageBox.Show("Records Deleted in table: " & icount1)

Else
Exit Sub
End If

************************* inserting a new entry

Dim SQLStringUpdateKeys As String
Dim SQLStringUpdateArea As String
Dim icount As Integer
Dim icount1 As Integer

Dim strConnection As String = OleDbConnection1.ConnectionString
Dim connect As New OleDbConnection(strConnection)
connect.Open()
On Error Resume Next
SQLStringUpdateKeys = "insert into informations values('" & txtKeyWordUp.Text & "','" & txtAreaNameUp.Text & "')"

Dim cmd As New OleDbCommand(SQLStringUpdateKeys, connect)
cmd.ExecuteNonQuery()
icount = cmd.ExecuteNonQuery
connect.Close()
connect.Dispose()
MessageBox.Show("New records added in table: " & icount)

Hope this helps. Smile | :)

Still trying to find the way

nyjcr17-Dec-04 6:34

nyjcr

17-Dec-04 6:34

Wow, I was way off..
Let me give this a try... thank you "Chaos Machine"

OICU81216-Dec-04 18:23

16-Dec-04 18:23

Drop an OleDbDataAdapter on a form and use the wizard to connect to the access DB and select a table that you want to view and it will auto-generate all the select, insert, delete and updates for the table. Right click the OleDbDataAdapter and choose Generate DataSet. Add a DataGrid to your form and set the DataSource and DataMember for the DataGrid in the properties Grid. ON the form load event add:

Me.OleDbDataAdapter1.Fill(DataSet1) '<-- Assuming you used the default autogenerated names.

I suggest reading thru MSDN and just search using DataSet, DataView, BindingManager, BindingManagerBase, CurrencyManager, Calculated Column, Strongly Typed DataSet. You'll need to know what all these things are if you are ever to make anything work. MSDN & Google is your best source really for learning just lookup those words.

Don't buy the Book "Programing MicroSoft VisualBasic.Net For MicroSoft Access Databases", it's absolute garbage.

Use the "DataForm Wizard" by selecting File|Add new item and look at how it builds a form with navigation buttons.

I've been learning all this over the last few weeks, and I must say it's quite FUSTRATING to say the least. It shouldnt be this hard to connect to data and work with it without using third party solutions.

I've been playing with the 2005 vb.net Beta and It looks like it's going to be much much easier to work with.

nyjcr17-Dec-04 6:37

nyjcr

17-Dec-04 6:37

Thank you...
VB is supposed to be this easy to learn, "foolproof" language...Its not!