|
That was NOT copy and paste code! I said that was VBScript, not VB6! It has to be converted to VB6 with a little effort.
WSCript is the scripting host that runs the code. WScript doesn't exist in VB6, but you can still use the Shell.Application object. Set a reference to "Microsoft Shell Controls and Automation", then you can create a Shell object and use it's Application property, just like in the sample code.
Dim shell As New Shell32.shell
Set objShell = shell.Application
count = objShell.Windows.Count
For i = 0 To count - 1
Set objIE = objShell.Windows.Item(i)
...
Next
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hello people
Urgently need some help please please.
I am currenlty creating a programme, and i need code for the following if possible.
I am trying to make a label turn yellow when it generates random numbers 1-9.
I have 6 labels which all generate random numbers between 1-50 in all of the 6 boxes in any order any 1 number will not be generated twice.
I hope this makes sense
SARAH
|
|
|
|
|
Does a label have a Brush property ? It's my recollection that it doesn't, I had to write my own Label control in order to be able to specify the brush used to draw the text.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
SARAH,
Dim intRandom As Integer
Dim originalColour As System.Drawing.Color = Me.Label1.BackColor
intRandom = cint((rnd() * 49) + 1)
If intRandom > 0 And intRandom < 10 Then
Me.Label1.BackColor = Drawing.Color.Yellow
Me.Label1.Refresh()
Else
Me.Label1.BackColor = originalColour
Me.Label1.Refresh()
End If
Regards
Richard
|
|
|
|
|
I know this is a silly question. But how do I define the columns in a dataset.
So after I have created a new dataset,
Dim DS as DataSet
How do I add columns. I know how to do it to a dataset that has already been filled from a database, but this does not appear to work for newly created DataSets.
|
|
|
|
|
You don't add columns to a DataSet, you add a DataTable to a DataSet, then add columns to the DataTable.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
' Create a DataSet:
myDataSet = New DataSet("myDataSet")
Dim tCust As DataTable
tCust = New DataTable("Customers")
' Create three columns and add them to the first table:
Dim cCustID As DataColumn
cCustID = New DataColumn("custID")
Dim cCustName As DataColumn
cCustName = New DataColumn("custName")
Dim cCurrent As DataColumn
cCurrent = New DataColumn("custCity")
tCust.Columns.Add(cCustID)
tCust.Columns.Add(cCustName)
tCust.Columns.Add(cCurrent)
' Add the table to the DataSet:
myDataSet.Tables.Add(tCust)
' Populate the table:
Dim newRow1 As DataRow
' Create three customers in the Customers table:
Dim i As Integer = 1
Do While (i < 4)
newRow1 = tCust.NewRow
newRow1("custID") = i.ToString()
tCust.Rows.Add(newRow1)
i += 1
Loop
' Give each customer a distinct name:
tCust.Rows(0)("custName") = "John Summers"
tCust.Rows(1)("custName") = "Phil Seagram"
tCust.Rows(2)("custName") = "Sam Robinson"
' And address:
tCust.Rows(0)("custCity") = "Chicago"
tCust.Rows(1)("custCity") = "Los Angeles"
tCust.Rows(2)("custCity") = "Washington"
|
|
|
|
|
Hello, I'm a beginner in VB.NET
I would like to use the NetShareEnum API to list share of a remote computer.
I have found a lot of topics about it but no one is working for VB.NET
I would like to display shares in a listbox.
Use a textbox to enter the target computer.
And one textbox to enter the password for the remote computer.
If someone can help me. I'm going mad !!!!
|
|
|
|
|
So you want to use the API and not a call to the Net.exe executable? Easy with a call to the shell app. I don't know how to access the API for that if there is one.
Thanks,
Taen Karth
|
|
|
|
|
Hello,
I don't want to use external "exe" file with a shell.
The NetShareEnum API is create specially for list share on remote computer.
For all these reasons I would like to use this API.
But If nobody show me the way, I think I will use your solution.
Thanks for your help
|
|
|
|
|
There are a couple of samples on the web, even one here on CodeProject. Have a look at this[^]. It in C#, but the code can be converted to VB.NET with reasonable effort.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I want to make a property for my custom control with name "RelatedLabel" that sets or gets a Windows Forms Label Control.
How do I list all the Label Controls (names) in the Form in a Property window in the design time.
Such as AcceptButton or CancelButton property of Windows Form.
I hope u understand my question
Thank You
-- modified at 12:30 Thursday 1st September, 2005
|
|
|
|
|
When you expose a public property that is of type Button, Label, Text, ScrollBar, etc, Visual Studio automatically lists all the controls of your property type available in the form at design time.
|
|
|
|
|
It really works.
Thank You.
|
|
|
|
|
Is there an event that runs right after the form is displayed for the first time?
I would like to show my form with no data displayed on it, then display a login screen on top of it. After correct login and password populate form with data.
Thanks.
|
|
|
|
|
Yes Use the forms "OnLoad" event
Just double click anywhere on your blank form in the IDE and it will send you to the "OnLoad" event for that form.
Thanks,
Taen Karth
|
|
|
|
|
The problem with the onload event is that it fires before the form is displayed. I want an event that fires right after the form is displayed for the first time.
|
|
|
|
|
There is no event that fires one-time only after the form is displayed.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
There is no event that is fired one-time only right after the form is displayed.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Ok, how do I accomplish this:
The app starts. The user sees the main form with all of its controls but without any data population. A login form also appears on top of this form. After typing a valid username and password the login form goes away and the main form is populated with data.
What I need help with is where in the main form do I call the login form. Thanks
|
|
|
|
|
I guess I don't understand exactly what you are trying to accomplish.
I have an MDI application that displays the main form before firing the onload event. My login form in in the main forms' "OnLoad" event so it looks like this:
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
<br />
frmLogin.StartPosition = FormStartPosition.CenterScreen<br />
frmLogin.ShowDialog()<br />
<br />
End Sub
Then my login screen shows in the middle of the screen and in dialog mode so that it has to be responded to before the user can access the main form.
|
|
|
|
|
Is your main form displaying behind the login form?
In your example you call the login form from the load event of the main form. When the main form load event fires the main form is not yet visible on the screen. Your login form is displayed as a dialog and stops the main form from displaying until the login form closes.
I would like to have the main form displayed behind my login form. Its kind of like the way Outlook works. You click on the icon, you see the Outlook screen but the login screen is in front of it, preventing you from doing anything until you provide a correct user name and password.
|
|
|
|
|
dptalt wrote:
Is your main form displaying behind the login form?
You can't launch a modal form with ShowDialog from the Load event of another form and expect both forms to show up. You'll see the modal form, but not the form that launched it. This is because the form won't actually show up until it's Load event is completed. Which, in your case, won't happen until the login form closes and control is returned to the line after your ShowDialog call.
In Outlook, the login is not controlled by the main form. Rather is being controller by a component that manages the data store Outlook uses.
In your application, you can't use ShowDialog to launch a login form. What you probably need to do is create your main form so it creates an object that wraps your datastore. When your controls are put up, they have to check to see if a user is logged in or not. If not, grey out the control or whatever you want.
But, when you actually have to get to the data, you call this component and it will put up the modal login form if it needs to, not your main form. If you want to update the status of your controls based on the existance of a valid login or not, you can then do that in the main form's Activated event.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Main Form w/ WindowState property set to "Maximize"
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 266)
Me.Name = "Form1"
Me.Text = "Main Form!!"
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim frm As New Form2
frm.StartPosition = FormStartPosition.CenterScreen
frm.ShowDialog()
End Sub
End Class
Login Form
Public Class Form2
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents Button1 As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button
Me.SuspendLayout()
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(208, 232)
Me.Button1.Name = "Button1"
Me.Button1.TabIndex = 0
Me.Button1.Text = "Login"
'
'Form2
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 266)
Me.Controls.Add(Me.Button1)
Me.Name = "Form2"
Me.Text = "Login"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Dispose()
End Sub
End Class
Hope that helps everyone.
Thanks,
Taen Karth
|
|
|
|
|
sorry for replying in the center if you problem is not solved then there is a solution for you. You have many variables in your application. May be one of them is UserID. you can check that in Activate event of main form
' any variable which you set, when user logs on.
' where is 0 is user has not signed in yet
if userID=0 then
dim frm as new LogOnForm
frm.showDialog
' do some thing if required
end if
and offcourse once the user is logged on then UserID <>0 so it will never show the logon form again.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
