|
Hello,
How can I make a label clickable? Like a signout link. Many thanks for any help 
Aim small, miss small
|
|
|
|
|
Because VB6 does not have the LinkLabel control, you will have to add a regular label. In the OnClick(..) event of the label put the code. You could also try underlining the label and giving it a blue color, so it looks like a link. In the same event you can also put the code for making the label look like it is clicked: change the color of the label from blue to purple. I don't know if VB6 has the MouseHover event yet, but if it does you could change the mouse pointer into a hand.
Try Google aswell, there may be Third Party software for LinkLabels in VB6. Try Googling for "VB6 + LinkLabel control" or something like that.
Hope this helps you out, 
--Zaegra--
Motivation is the key to software development.
|
|
|
|
|
Zaegra wrote: You could also try underlining the label and giving it a blue color, so it looks like a link
For some reason that made me laugh a little
Many thanks for this. That really works for me. And for the record I did try to google though I searched for "VB6+Label control+clickable"  Yeah, I know...quite stupid 
Aim small, miss small
|
|
|
|
|
Hi 2 All
I developed a desktop application using Microsoft Visual Studio .NET 2003 (VB.NET) with Microsoft SQL Server 2000 with no service pack installed.
I deployed this application on network (Windows XP on all computers clients as well as server), running fine. I mean accessing and showing data from server machine (i installed connectivity only on the client machine, not client and server tools).
The problem which i am facing is that reports (used built in crystal reports) are not visible on clients machines, when i access reports on server machine it is fine, but when i access reports from client machine a dialoge box appear which demands
Server
database
user name
password
Even if i provide all above informations the report is not visible.
Please help me that how can i view reports on client machine ...
thanks in advance ...
bye
Regards,
Arfan Qadir
|
|
|
|
|
Sounds like you are using a DSN for your data source, which exists on the server, but not on the client machine!
Either create a DSN on each client machine (if you have control of them and don't want to update your code in the system) or update your code to use a direct connection (ie: write your connection string in the code rather than using a DSN).
Hope this helps.
--------------------------------------------------------
Knowledge is knowing that the tomato is a fruit.
Wisdom is not putting it in fruit salad!!
|
|
|
|
|
I'm not sure if this question is okay to ask, but does anyone know how to save a Bitmap object to a WBmp file?
My current code is below, but it doesn't work properly (I think I'm doing something wrong with the bitshifting to pack 8 pixels into a byte):
Dim fs As System.IO.FileStream = System.IO.File.OpenWrite(newFilename)
Dim img As Bitmap = Image.FromFile(filename)
' Write Header
fs.WriteByte(0)
fs.WriteByte(0)
fs.WriteByte(img.Width)
fs.WriteByte(img.Height)
' Convert colour to 1bit and packet bits into byte
Dim iByte As Byte = 0
Dim iCurrentBit As Integer = 0
For x As Integer = 0 To img.Width - 1
For y As Integer = 0 To img.Height - 1
Dim clr As Color = img.GetPixel(x, y)
If (clr.R > 128) And (clr.G > 128) And (clr.B > 128) Then
If iCurrentBit >= 7 Then
iByte = iByte Or ((2 << iCurrentBit) - 1)
Else
iByte = iByte Or (2 << iCurrentBit)
End If
End If
If iCurrentBit >= 7 Then
fs.WriteByte(iByte)
iByte = 0
iCurrentBit = 0
End If
iCurrentBit += 1
Next
Next
fs.Flush()
fs.Close()
|
|
|
|
|
Hi,
here are some mistakes:
1) iCurrentBit += 1 should be in the else part of the
previous if otherwise you will cycle 0,1,...7,1,2,...7,1,2,...7
2) iByte = iByte Or (2 << iCurrentBit) is wrong, it should be
iByte = iByte Or (1 << iCurrentBit) since the bit values are 1, 2, 4, etc.
3) iByte = iByte Or ((2 << iCurrentBit) - 1) does not seem right; the integer
value of bit 7 is -128, not 255
There may be more.
BTW: the flush-close sequence does not make sense, flush is useful only if you don't immediately close!
|
|
|
|
|
Thanks, I've fixed the errors and found more.
I thought I'd post the fixed source code in case someone else finds it useful.
Dim fs As System.IO.FileStream = System.IO.File.OpenWrite(newFilename)
Dim img As Bitmap = Image.FromFile(filename)
' Write Header
fs.WriteByte(0)
fs.WriteByte(0)
fs.WriteByte(img.Width)
fs.WriteByte(img.Height)
' Convert colour to 1bit and packet bits into byte
Dim iByte As Byte = 0
Dim iCurrentBit As Integer = 7
For y As Integer = 0 To img.Height - 1
For x As Integer = 0 To img.Width - 1
Dim clr As Color = img.GetPixel(x, y)
If (clr.R > 128) And (clr.G > 128) And (clr.B > 128) Then
iByte = iByte Or (1 << iCurrentBit)
End If
If (x >= img.Width - 1) And (x Mod 8) Then
fs.WriteByte(iByte)
iByte = 0
iCurrentBit = 7
ElseIf iCurrentBit = 0 Then
fs.WriteByte(iByte)
iByte = 0
iCurrentBit = 7
Else
iCurrentBit -= 1
End If
Next
Next
fs.Close()
|
|
|
|
|
Great. Thanks for sharing.
|
|
|
|
|
Hi,
I want to play .pps/.ppt file without installing MS Office powerpoint component.
For now I am playing same in browser control which internally runs powerpoint executable file. if I dont have powerpoint installed, it stops playing.
Do we have any component/ocx which can play it without installing MS Office.
Thanks
|
|
|
|
|
Have you googled around for any third part component? If one exists, I am sure it'll cost some money. Why not just require Office to be installed and use the Office Interop Library?
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
Requiring office on the machine would be a way to offset costs to the consumer, instead of the programmer having to pay for a third party control
Regards,
Thomas Stockwell
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning.
Visit my homepage Oracle Studios
Discounted or Free Software for Students:
DreamSpark - downloads.channel8.msdn.com
MSDN Academic Alliance - www.msdnaa.com
|
|
|
|
|
Thomas Stockwell wrote: Requiring office on the machine would be a way to offset costs to the consumer
That is true, but the user would be able to use more than just Powerpoint.
Thomas Stockwell wrote: programmer having to pay for a third party control
He could always pass on the third party control cost to the user(s).
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
I know there are functions built into .NET that will resize images, but they don't do what i want. I am making an icon editor, and it needs to be able to resize images with a pixel resize. That is a type of resize where if you zoom in enough you can actually see the individual pixels of the original images, like Paint Shop Pro or Photoshop (or even paint) do. I have make an algorithm to do this, but it is unbelievably slow, and i need to make it do this almost instantly. I am using the Bitmap class and the Bitmap.GetPixle\Bitmap.SetPixle methods. Here is my algorithm:
Public Shared Function ResizePixles(ByVal image As Bitmap, ByVal factor As Integer) As Bitmap
On Error Resume Next
Dim rbmp As New Bitmap(image.Width * factor, image.Height * factor)
For x As Integer = 0 To image.Width - 1
For y As Integer = 0 To image.Height - 1
Dim c As Color = image.GetPixel(x, y)
For x2 As Integer = x * factor To x * factor + factor - 1
For y2 As Integer = y * factor To y * factor + factor - 1
rbmp.SetPixel(x2, y2, c)
Next
Next
Next
Next
Return rbmp
End Function
As you can see, i have 4 For loops in my code, which makes it very slow.
if (your.Life == lifestyles.Programming)
{
your.Cool = true;
}
else
{
your.Cool = false;
}
|
|
|
|
|
Hi,
I haven't used this myself as of late, but are you aware Graphics has an InterpolationMode property,
which accepts values such as NearestNeighbor, basically just duplicating pixels, not inventing new
ones?
If you only need to see it scaled up, use it in a Panel's OnPaint; if you really also need the
new Bitmap, do Graphics.FromImage(rnmp) then Graphics.DrawImage
|
|
|
|
|
I have tried all the items in the InterpolationMode when resizing an image with a graphics class, but none produced the result i wanted. I will try with the NearestNeighbor item again, and see if i am mistaken.
Also, could you (or anyone) please elaborate on what you ment by the OnPaint thing?
if (your.Life == lifestyles.Programming)
{
your.Cool = true;
}
else
{
your.Cool = false;
}
modified on Tuesday, July 15, 2008 6:49 PM
|
|
|
|
|
Hi,
You did not specify how exactly it does not what you want.
Three ideas:
1)
I ran a little experiment, and it seems to work fine, with one proviso: the NearestNeighbour
does duplicate pixels, but due to the nearest (not the left) source pixel, it will not duplicate
the leftmost/topmost pixel a sufficient number of times.
So to be exact, you should proceed as follows (I'll explain in one dimension):
input width w1, output width wanted w2, scalefactor f=w2/w1 (use reals for scale!)
split the output in three regions, with widths wa,wb,wc
wa=f/2 <--- represents half an input pixel
wb=(w1-1)*f
wc=w2-wa-wb <--- represents half an input pixel
now duplicate the leftmost pixel of input to wa,
duplicate the rightmost pixel of input to wc,
finally do the DrawImage scale with nearestneighbour from w1 to wb (i.e. shifted by wa)
That should put every single pixel at the right spot.
2)
I am pretty sure the complex copying of the edges could be handled by DrawImage itself,
provided you give it appropriate parameters.
3)
As an approximation you could do a two step approach:
- do DrawImage with Normal InterpolationMode for the full size;
- do DrawImage with NearestNeighbour InterpolationMode for a size that is half a pixel smaller
on all four edges of the output image (don't modify the input sizes!)
|
|
|
|
|
Thanks! With your help, i managed to figure it out. A while back, i posted this question on both ProgrammersHeaven.com and DreamInCode.net and i didn't get an answer on either site. Thanks so much!
if (your.Life == lifestyles.Programming)
{
your.Cool = true;
}
else
{
your.Cool = false;
}
|
|
|
|
|
You're welcome. Glad to be of help.
|
|
|
|
|
Hi,
I once assembled a short text giving the essentials of painting:
there are several steps to draw something so it becomes visible on the screen:
1.
decide upon what object you want to draw; it normally is a Control (e.g. a Panel) or a
Form itself. I prefer to add a Panel to a Form, then draw on the Panel.
2.
create some variables (Rectangle, struct, class, whatever) that hold the parameters of
your drawing. For a rectangle that could be top and left coordinate, and width+height,
or just a Rectangle. etc.
3.
create a Paint handler (either add your own paint handler to the Paint event, or
override the OnPaint method) for that Panel, and do all your drawing in there,
using the Graphics class and your variables.
4.
when you want to change things, modify the variables and call Panel.Invalidate() or
one of its overloads (for selective invalidation).
5.
If you want to animate things, perform the move (step 4) inside the Tick handler
of a Windows.Forms.Timer
BTW: if you need to create some objects (Fonts, Pens, Brushes, ...) either keep them
alive in class members (hence create them only once); or create them inside the Paint
handler and don't forget to call Dispose() on them.
|
|
|
|
|
Hi,
in my latest experiment, I came up with a really simple way of modifying nearestneighbour into
copy_from_left/top; it suffices to indicate half a pixel translation, as in this C# code.
The source image has size (w,h) and is translated to (x,y) and scaled up by the fraction zoomT/zoomN:
Rectangle r=new Rectangle(x, y, w*zoomT/zoomN, h*zoomT/zoomN);
g.InterpolationMode=InterpolationMode.NearestNeighbor;
g.DrawImage(image, r, -0.5f, -0.5f, w, h, GraphicsUnit.Pixel);
So instead of using the pixels 0, 1, 2, ... w-1 of the source image, I am actually using
the pixels -0.5, 0.5, 1.5, ... w-1.5 which means whenever I need something in some interval
(say the first -0.5 to 0.5) it will take the nearest integer, which is the middle of the translated
interval, i.e. the left/top of the original interval!
Can't get more simple than that.
|
|
|
|
|
I am creating a treeview dynamically.
In one .vb file - First I am reading the xml and storing the data in hashtable.
In another file - I don't want to read the xml again so I am going through hashtable and creating the nodes. How do I create Sub nodes if any. How should I store the nodes and subnodes diffrentiated in hashtable.
LK
|
|
|
|
|
|
From the reference you have given that is actually creating a custom tree view control from what i understood. But what I need is:
I cannot create a tree data structure because I have to read the xml first and store in some collection.
I have a user control where I have: a picture box control and tree view control below that. When the picture box is clicked I want to show the treeview with nodes and sub nodes if any looping through the collection. Any examples of this kind please.
Thanks for your help in advance !
LK
|
|
|
|
|
I don't know if I understood this properly, but as you want to loop through your XMLDocument and placing the items into a TreeView, you can try the following. MainTree is the TreeNode and doc is the XMLdocument.
Dim doc As New XmlDocument<br />
doc.Load(PathName)<br />
MainTree.Nodes.Clear()<br />
For Each mainroot As XmlNode In doc.ChildNodes<br />
Dim maintreenode As New TreeNode<br />
maintreenode.Text = mainroot.Name<br />
MainTree.Nodes.Add(maintreenode)<br />
For Each subnode As XmlNode In mainroot.ChildNodes<br />
Dim subroot As New TreeNode<br />
subroot.Text = subnode.Name<br />
maintreenode.Nodes.Add(subroot)<br />
<br />
etc..<br />
<br />
Next<br />
Next<br />
Hope this helps you out, 
--Zaegra--
Motivation is the key to software development.
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
