|
Hello,
what I try to create is a .Net user control which can be used in VB6. Until now I wrote a class library with a .Net form and a COM class. This library I can use in VB6 without problems. But the creation of a user control seems to be a little bit more difficult. Has anybody done this before successful? Does anybody know or have a tutorial or an example for this?
Greets
Patrick
|
|
|
|
|
|
Public Class AdvanceLogon
Inherits CombinedDestination
<browsable(false)> _
Public Overrides Property ConnectionString() As String
Get
End Get
Set(ByVal Value As String)
End Set
End Property
End Class
when i complie the code, it gives the error ConnectionString is not overidable because it is a part of internal class of CombinedDestination class. How we can hide internal class property
kumar Prabhakar
-- modified at 5:06 Wednesday 8th March, 2006
|
|
|
|
|
To hide the member of base class, you can use shadows keyword.
Public Shadows Property ConnectionString() As String
Get
End Get
Set(ByVal Value As String)
End Set
End Property
!alien!
|
|
|
|
|
It does not hide ConnectionString in PropertyGrid of CombinedDestination Class.
abc
|
|
|
|
|
IIRC, you can't. You'd have to take that class out of the CombinedDestination class to do this.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi,
I want to make my VB application support Unicode for Strings.So I want to know if all String handling functions in VB support Unicode.If no, please let me know the Unicode supporting functions for Strings in VB.
Regards
Ranjan
|
|
|
|
|
Is your application built on VB6 or VB.NET
|
|
|
|
|
Hi,
My Application is Built on VB6.0.
Regards,
Ranjan
|
|
|
|
|
Yes, all strings in VB6 and VB.NET are stored as Unicode.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I have created this pop up window that comes and go 3 times using timers. the timers will invoke this method
Private Sub startDisplay(ByVal displayCall As String)
setLocation()
Me.Opacity = 0
Me.Show()
currentTimer = timerFadeIn
timerFadeIn.Start()
End Sub
THE TIMER EVENT IS LIKE THIS
Private Sub TimerEventProcessor(ByVal myObject As Object, _
ByVal myEventArgs As EventArgs)
countWarnings = countWarnings + 1
Select Case countWarnings
Case 2
startDisplay("B")
Case 3
startDisplay("C")
AlertWindowTimer.Stop()
End Select
End Sub
i'M HAVING A PROBLEM THAT MANY INSTANCES OF THIS WINDOW CONFLICT AND FREEZE THE SYSTEM
HOW COULD I USE SYNCLOCK TO ORGANIZE THIS?
I ADDED SyncLock GetType(AlertWindow) IN ALL THE METHODS THAT INVOKE THE WINDOW. IT GOT BETTER BUT STILL FREEZES AFTER SEVERAL WINDOW MORE
IS SYNCLOCK THE BEST OR IS THERE A WAY TO CREATE A INDIVIDUAL THREAD TO EACH INSTANCE?
|
|
|
|
|
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
|
|
|
|
|