|
You don't need to use Timers for this at all.
All you need is a couple of methods that adjusts the Opacity of the form, and a couple of things to support them:
' Form1 code
Imports System.Threading
.
. FadeUpTo(100)
.
. FadeDownTo(0)
.
Private Sub FadeUpTo(ByVal maxOpacity As Integer)
For i As Integer = OpacityInt32 To maxOpacity Step 5
SetOpacityAndWait(i)
Next
Private Sub FadeDownTo(ByVal minOpacity As Integer)
For i As Integer = OpacityInt32 To minOpacity Step -5
SetOpacityAndWait(i)
Next
End Sub
Private Sub SetOpacityAndWait(ByVal opacity As Integer)
Opacity = i / 100.0
Application.DoEvents()
Thread.Sleep(35)
End Sub
Private ReadOnly Property OpacityInt32() As Integer
Get
Return Fix(Opacity * 100)
End Get
End Property
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Just asking is it possible to implement this kind of code in VB .NET? I've been searching for the tutorial, source etc but seems can't find nothing that works. I come accross some task manager that can read, start and kill a local process but nothing works on remote. So if anyone can help me implementing this module, please do so. This is my final year project, I really need your help because this is the last module that remains unfinished.
Just to ask you is it possible, when running a task manager (that can start/stop process(es)) on a client PC, and running the same task manager on a server pc but the content views the remote (client) processes and I can control it from there.
Here is the code that managed to do the local task:
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=170&lngWId=10
Thanks in advance..
|
|
|
|
|
x86phre3x wrote: read, start and kill a local process but nothing works on remote
You can't find anything because it's not really supported the way you think it should be, nor is it a recommended practice. Starting a remote process is a HUGE security risk. You CAN start remote processes, but by design, they are not allow to run interactively on the users desktop.
You can view a remote task list, and kill off processes though, so long as the account that your app is running under has administrator rights to both machines.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Yes I understand that it is a security risk so I have been thinking of a way that should bypass the security provided by Windows. But it's just I'm a total n00b in programming, I don't have any idea on how to implement it.
My idea is, since we can't directly control processes on remote machine, we can do a local operation, remotely. For example, by using a tiny udp message application to send a text message or any king of signal so that all the operation at the remote are done locally (by the software of the client). The program I'm trying to develop is a client-server software. Which means that all the operation to kill or start a process is on the client side, so the server side is just controlling it by using message style. The problem is, how to I control the populated process by the client side, which I can view it in the server side.
For example, I create a text box on the client software that reads CPU name through WMI, and when the CPU name is displayed on the text box on the client side, a text box at the server side will also get the same information. It's the same as the processes viewer. If the client side has populated the process(es), the list will also being viewed at the server side. And when I select a task in the view on the server side, the same task at the client side is also selected, and when I press kill, it'll also do the same thing on the client side. This means, that all the operations are done at the client side.
Do you have any idea? Can I use the code (the one I posted in my first post) to do this? If anyone here can help me, please do so. Any code provided will much be appreciated.
Thanks again..
|
|
|
|
|
You would have to write a Windows Service application that opens a port on the remote machine and listens for commands. This service would have to be installed on every machine you needed to work with. You would also have to write a local-side application, or client app, that would find and communicate with the service on each remote machine.
You would use the Process[^] class to enumerate the Processes on the machine. How you send them back to your client app is up to you. You could either do it using text messages or you could pass serialized objects back using an XMLSerializer.
You also have another problem. A Windows Service that interacts with the desktop has to run under that machines Local System account, which gives that service more rights to the machine than God. This is why your idea is still a HUGE security risk. The app that your service launches will have those same rights! NOT A GOOD IDEA!
You could possibly use some of the code in that link you posted, but most of it will probably not help you. Most of the code you'll need will be in managing the client/server communication and command set both sides will use.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi all,
I would like to change the color of a form in VB 6.0. Is there any WIN32 API function or any other Visual Basic function which gets the form handle and changes the color of the form.
Just setting form.backcolor does not help as they do not change the color of other controls and menus. I would like change the default color of the whole form.
Pls reply asap.
Thanks,
Sugan
|
|
|
|
|
V.Sugan wrote: Is there any WIN32 API function or any other Visual Basic function which gets the form handle and changes the color of the form.
No, not the way your describing. You can get the handle of the Form's window from the Form's hWnd property. But, there is no function to change the Form's color using that handle, or anything else. Each element is repsonsible for its own color.
V.Sugan wrote: Just setting form.backcolor does not help as they do not change the color of other controls and menus
Of course not! You have to change the colors of the controls yourself.
The menus on the forms, by design, follow the colors layed out in the Display Control Panel. If you want to change them, you'll have to owner-draw the menus. You can find out more abou this from Google[^].
As for the controls, if you didn't specify a ForeColor or BackColor, they'll use default values. If they don't have BackColor and/or ForeColor properties, they'll use the colors specified in the Desktop Control Panel.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
You should be able to chang it in the properties windom
|
|
|
|
|
That will not do what he wants. The properties window just exposes the same properties you get at runtime, but at design time.
He's looking to change the colors of everything in one function call. That just doesn't exist, unless he writes the function to iterate through all his controls to do it for him.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi,
Im using VB 6.0 True DBGrid. I want to change the back color of some rows depending on the condition. For example, if if a row contains value 1 in one of its column then its back color would b red and other rows remain with the same default color.
Thanx
Noshaba Mariam
|
|
|
|
|
The best place to find out about that would be ComponentOne's Support[^] page.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Thanx for the reply but............
Sorry I couldn't b able to get what I exactly want from the page u suggested.
|
|
|
|
|
So posting a question in their Support Forums doesn't get you what you need?
Do you think you'll get a better response from a forum that doesn't support the product? It's very unlikely, simply because we can't support every control out there. There's thousands of them!
You'd be much better off posting this question in their forums, where people who use the controls, support them, and even write them, tend to congregate.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi All,
I am getting an error: Invalid object 'TABLE NAME' when trying to upload an image to a database.
below are my codes on upload button click event
-----
Private Sub btnUpload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpload.Click
Dim sizeofFile As Integer = fileUpload.PostedFile.ContentLength
objConn = New SqlConnection(dbPath)
cmd = New SqlCommand("insert into UserImage(Bits, Description,UserId, UploadTime, ImageSize, Mime) values " & _
"(@Bits, @Description, @UserId, @UploadTime, @ImageSize, @Mime)", objConn)
Dim p1, p2, p3, p4, p5, p6 As SqlParameter
p1 = cmd.Parameters.Add("@Bits", SqlDbType.Image)
p2 = cmd.Parameters.Add("@Description", SqlDbType.NVarChar)
p3 = cmd.Parameters.Add("@UserId", SqlDbType.Int)
p4 = cmd.Parameters.Add("@UploadTime", SqlDbType.DateTime)
p5 = cmd.Parameters.Add("@ImageSize", SqlDbType.Int)
p6 = cmd.Parameters.Add("@Mime", SqlDbType.NVarChar)
p1.Value = GetImageBits(fileUpload.PostedFile.InputStream, sizeofFile)
p2.Value = "caption"
p3.Value = 1
p4.Value = DateTime.Now
p5.Value = sizeofFile
p6.Value = fileUpload.PostedFile.ContentType
objConn.Open()
Response.Write(cmd.CommandText + " ")
cmd.ExecuteNonQuery()
objConn.Close()
End Sub
Private Function GetImageBits(ByVal fs As Stream, ByVal size As Integer) As Byte()
Dim img(size) As Byte
fs.Read(img, 0, size)
Return img
End Function 'GetImageBits
-----
I thought it could just be the mismatch of table name or column name but its not.
below are my database table query.
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[UserImage]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[UserImage]
GO
CREATE TABLE [dbo].[UserImage] (
[Bits] [image] NULL ,
[Description] [nvarchar] (300) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[UserId] [int] NULL ,
[UploadTime] [datetime] NULL ,
[ImageSize] [int] NULL ,
[Mime] [nvarchar] (300) COLLATE SQL_Latin1_General_CP1_CI_AS NULL
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
GO
I tried hard but couldnt figure out please help. thanks in forward.
cheers
robin
|
|
|
|
|
foremorecoast1 wrote: objConn = New SqlConnection(dbPath)
What does dbPath contain? Perhaps it is incorrect?
...Steve
1. quod erat demonstrandum
2. "Give a man a fish and you've fed him for a day. Teach him how to fish and you've fed him for life." I read that somewhere once
(Translation: I'll show you the way, but not write the code for you.)
|
|
|
|
|
AWwwwwwwwwwwwwwwwww.
my bad. hehe it was pointing to wrong database. thanks
very much never thought about that.
cheers
robin
|
|
|
|
|
Hi All,
I have posted this like hundred times and i seem to get no response from any. i am again refining my question hope that makes clear.
I have a data repeater in my webpage. which basically queries 3 tables and combines and repeats accordingly. but what i have in one table is a statatistical data like
id estimated actual year
1 20 18 2003-2004
1 23 21 2003-2004
1 24 14 2005-2006
2 20 24 2003-2004
2 15 29 2003-2004
2 16 14 2004-2005
3
4
7
etc.
missing IDs are present in other TABLES just not in statistical table.
i need to create individual chart for id 1 for year 2003-2004 and year 2005-2006 and so on for id 2 and so forth.
i can create once chart based upon a single table but its like a quering a table and based upon parameter i need to create new dataset and bind it to some web chart control.
the data should be presented something like this in a repeater.
Head information related to ID 1 from table 1
sub head description related to ID 1 from table 2
a chart for ID 1 of year 2003-2004 and a chart for ID 1 of year 2005-2006
(if no data present dont display chart). please note year field is only a string.
so on for other IDs.
Please help how to achieve this or do you know any Software that does this so that i can simply purchase this software.
thanks
Robin
|
|
|
|
|
You were told, back on March 2nd, and beyond, how to do this.
Create a SELECT to return all the UNIQUE ID's in your table. Then, you have to load your data into a DataTable. Create a DataView to filter out the records for a specific ID, one for each ID you retrieve. Then, you create and bind your chart to the data in the DataVIEW, not the table. Repeat this for each ID...
Asking this question 8 more times will not change the answer.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi,
I've got a problem with my custum datagridcolumnstyles. As soon as I sort on a column with a custom column style after I have selected a different row, the code redraws a label(which is the columnstyle in the attached code snippet) the size of the entire grid. Also when changing the readonly status of the datagrid the datagrid seems to "freeze". I am probably missing something, but I am not sure what. Any suggestions? The attached code is converted from C# to vb so there might be some error there.
Thanks
David
Public Class clDTRDataGridLabelColumn
Inherits DataGridColumnStyle
Private lb As New Label
' The isEditing field tracks whether or not the user is
' editing data with the hosted control.
Private isEditing As Boolean
Public Sub New()
lb.Visible = False
lb.Dock = DockStyle.Fill
Me.NullText = ""
'tb.Height = 27
End Sub
Protected Overrides Sub Abort(ByVal rowNum As Integer)
isEditing = False
RemoveHandler lb.TextChanged, _
AddressOf lbtextChanged
Invalidate()
End Sub
Protected Overrides Function Commit _
(ByVal dataSource As CurrencyManager, ByVal rowNum As Integer) _
As Boolean
lb.Bounds = Rectangle.Empty
AddHandler lb.TextChanged, _
AddressOf lbtextChanged
If Not isEditing Then
Return True
End If
isEditing = False
Invalidate()
Return True
End Function
Protected Overloads Overrides Sub Edit( _
ByVal [source] As CurrencyManager, _
ByVal rowNum As Integer, _
ByVal bounds As Rectangle, _
ByVal [readOnly] As Boolean, _
ByVal instantText As String, _
ByVal cellIsVisible As Boolean)
Dim value As String
If cellIsVisible Then
lb.Text = value
lb.Visible = True
AddHandler lb.TextChanged, _
AddressOf lbtextChanged
Else
lb.Text = value
lb.Visible = False
End If
If lb.Visible Then
DataGridTableStyle.DataGrid.Invalidate(bounds)
End If
End Sub
Protected Overrides Function GetPreferredSize( _
ByVal g As Graphics, _
ByVal value As Object) As Size
Return New Size(100, lb.PreferredHeight)
End Function
Protected Overrides Function GetMinimumHeight() As Integer
Return lb.PreferredHeight
End Function
Protected Overrides Function GetPreferredHeight(ByVal g As Graphics, ByVal value As Object) As Integer
Return lb.PreferredHeight
End Function
Protected Overloads Overrides Sub Paint(ByVal g As Graphics, ByVal bounds As Rectangle, ByVal [source] As CurrencyManager, ByVal rowNum As Integer)
Paint(g, bounds, [source], rowNum, False)
End Sub
Protected Overloads Overrides Sub Paint(ByVal g As Graphics, ByVal bounds As Rectangle, ByVal [source] As CurrencyManager, ByVal rowNum As Integer, ByVal alignToRight As Boolean)
Paint(g, bounds, [source], rowNum, Brushes.Red, Brushes.Blue, alignToRight)
End Sub
Protected Overloads Overrides Sub Paint(ByVal g As Graphics, ByVal bounds As Rectangle, ByVal [source] As CurrencyManager, ByVal rowNum As Integer, ByVal backBrush As Brush, ByVal foreBrush As Brush, ByVal alignToRight As Boolean)
Dim str As String
Dim rect As Rectangle = bounds
If Not GetColumnValueAtRow([source], rowNum) Is DBNull.Value Then
str = CType(GetColumnValueAtRow([source], rowNum), String)
Else
str = ""
End If
If rowNum = Me.DataGridTableStyle.DataGrid.CurrentRowIndex Then
backBrush = New SolidBrush(Me.DataGridTableStyle.SelectionBackColor)
End If
g.FillRectangle(backBrush, rect)
rect.Offset(0, 0)
g.DrawString(str, Me.DataGridTableStyle.DataGrid.Font, foreBrush, RectangleF.FromLTRB(rect.X, rect.Y, rect.Right, rect.Bottom))
Console.WriteLine(bounds.Width & " " & bounds.Height & " " & Me.HeaderText)
End Sub
Protected Overrides Sub SetDataGridInColumn(ByVal value As DataGrid)
MyBase.SetDataGridInColumn(value)
If Not (lb.Parent Is Nothing) Then
lb.Parent.Controls.Remove(lb)
End If
If Not (value Is Nothing) Then
value.Controls.Add(lb)
End If
End Sub
Private Sub lbtextChanged(ByVal sender As Object, ByVal e As EventArgs)
Me.isEditing = True
MyBase.ColumnStartedEditing(lb)
End Sub
End Class
Think, try, think, think, try, think, think, think, try, ASK, think, try, advance on step and start over...
|
|
|
|
|
I am creating a custom winform control that extends the TreeView control.
One property I am adding is a collection.
I have tried to follow some outlines of other controls that allow the editing of the collection at design-time and have those edits persist in your form.
Code to create my collection objects is being added to the form Initialize code. The collection item properties are being set correctly in this code also.
But, code is not being created that adds the collection item to the parent controls collection.
Can someone provide a quick, abbreviated checklist for things that must be done to be sure the designer creates all the code required in the form initialize block?
Thank You,
Any Takers On This Item??????
Rhorc
-- modified at 19:05 Thursday 9th March, 2006
|
|
|
|
|
I have a program that stores passwords and after logging in, I would like to close the main page and show the page that has the passwords. I can show the second page but I cannot get the main page. Can anyone help? Thanks.
|
|
|
|
|
I tested this in VB.Net 2005, but I don’t know if it works in VB.Net 2003
Here, you cannot close the form, but you can hide it like this
Dim frm2 As New frmSecondForm<br />
frm2.Show()<br />
Me.Hide()
For the second form
Me.Hide()<br />
Dim frm1 As New frmFirstForm<br />
frm1.Show()
If you like to disable the main form while you work with the second form. You can use
Dim frm2 As New frmSecondForm<br />
frm2.ShowDialog()
If you use VB.Net 2005
frmSecondForm.Show()<br />
Me.Hide()
For the second form
frmFirstForm.Show()<br />
Me.Hide()
If you like to disable the main form while you work with the second form. You can use
frmSecondForm.ShowDialog()
chatura
|
|
|
|
|
I need to design a simple program. There are two databases on seperate computers and they need to have the same data. I need to have the program keep each database up to date with each other. Any ideas? Thanks in advance.
|
|
|
|
|
Depends which database engine you are using, but I'd look at the native support built into most db's these days to provide this functionality without programming effort. (I'm talking about SQL Server, Oracle etc - not Access.)
You could use log shipping, transactional replication, or a number of other methods - all controlled by the db engine itself. You'll need to look at the db's doc to find out what sort it provides.
...Steve
quod erat demonstrandum
"Give a man a fish and you've fed him for a day. Teach him how to fish and you've fed him for life." (Translation: I'll show you the way, but not write the code for you.) I read that somewhere once
|
|
|
|
|
Hi, I was wondering if anyone out there might be able to help me with the removal of the selectedindexchanged event from a custom combobox? I have created a custom combobox control and have the keyevents calling a method that will reset the selectedIndex changed event to 0, and then to -1. I do this because visual studio 2003 seems to have problems setting the combobox index to -1. In that method, I need to shut down the index changed event so that the event is activated only once when the index is changed, but I do not know how exactly I can remove the handler/disable the event within a custom control that inherits from the combobox. Anyhelp would be greatly appreciated. Thank you and have a nice day.
Code: -not working
'delegate declaration?
Shadows Event SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
'Handling event
Protected Overrides Sub OnSelectedIndexChanged(ByVal e As System.EventArgs)
MyBase.OnSelectedIndexChanged(e)
End Sub
'Reset Index
Public Sub resetIndex()
RemoveHandler SelectedIndexChanged, AddressOf OnSelectedIndexChanged
Me.SelectedIndex = 0
AddHandler SelectedIndexChanged, AddressOf OnSelectedIndexChanged
Me.SelectedIndex = -1
End Sub
eatwork
eatwork
|
|
|
|
|