|
Actually this code is from a program Steganography.......
Private Sub EncodeByte(ByVal Value As Byte, ByVal used_positions As Collection, ByVal wid As Integer, ByVal hgt As Integer, ByVal show_pixels As Boolean)
Dim i As Integer
Dim byte_mask As Integer
Dim r As Integer
Dim c As Integer
Dim pixel As Integer
Dim clrr As Byte
Dim clrg As Byte
Dim clrb As Byte
Dim color_mask As Integer
byte_mask = 1
For i = 1 To 8
' Pick a random pixel and RGB component.
PickPosition used_positions, wid, hgt, r, c, pixel
' Get the pixel's color components.
UnRGB picImage.Point(r, c), clrr, clrg, clrb
If show_pixels Then
clrr = 255
clrg = clrg And &H1
clrb = clrb And &H1
End If
' Get the value we must store.
If Value And byte_mask Then
color_mask = 1
Else
color_mask = 0
End If
' Update the color.
Select Case pixel
Case 0
clrr = (clrr And &HFE) Or color_mask
Case 1
clrg = (clrg And &HFE) Or color_mask
Case 2
clrb = (clrb And &HFE) Or color_mask
End Select
' Set the pixel's color.
picImage.PSet (r, c), RGB(clrr, clrg, clrb)
byte_mask = byte_mask * 2
Next i
End Sub
Private Sub PickPosition(ByVal used_positions As Collection, ByVal wid As Integer, ByVal hgt As Integer, ByRef r As Integer, ByRef c As Integer, ByRef pixel As Integer)
Dim position_code As String
On Error Resume Next
Do
' Pick a position.
r = Int(Rnd * wid)
c = Int(Rnd * hgt)
pixel = Int(Rnd * 3)
' See if the position is unused.
position_code = "(" & r & "," & c & "," & pixel & ")"
used_positions.Add position_code, position_code
If Err.Number = 0 Then Exit Do
Err.Clear
Loop
End Sub
Private Sub UnRGB(ByVal color As OLE_COLOR, ByRef r As Byte, ByRef g As Byte, ByRef b As Byte)
r = color And &HFF&
g = (color And &HFF00&) \ &H100&
b = (color And &HFF0000) \ &H10000
End Sub
|
|
|
|
|
This is all and wel and good, but you didn't answer the question. Where is the VB6 code that defines OLE_COLOR???
|
|
|
|
|
Since your code looks like ...
UnRGB picImage.Point(r, c), clrr, clrg, clrb
where r c can be any point related to x,y
Private Sub UnRGB(ByVal color As OLE_COLOR, ByRef r As Byte, ByRef g As Byte, ByRef b As Byte)
Edited: taking a 2nd look it should be like this:
dim bm as Bitmap = new Bitmap("your picimage");
dim cr as Color = bm.GetPixel(x,y);
UnRGB (cr, clrr, clrg, clrb)
Private Sub UnRGB(byval cr as Color ...
OLE_COLOR is nothing more than a INT32 value replace in .NET by System.Drawing.Color
You can always use System.Drawing.ColorTranslator.FromOle to convert OLE_COLOR to a .NET Color Object.
Hope it helps.
modified on Saturday, November 8, 2008 5:23 PM
|
|
|
|
|
Thanks Friend Your Reply Really Helped Me thanks Alot.....
|
|
|
|
|
Actually this code is from a program Steganography.......
and I am unable to Write UnRGB procedure in Vb.net b/c if I convert OLE_COLOR into SYSTEM.DRAWING.COLOR then Error Comes that: And operation can not be performed...... any body can help me to write this procedure in Vb.net
Private Sub EncodeByte(ByVal Value As Byte, ByVal used_positions As Collection, ByVal wid As Integer, ByVal hgt As Integer, ByVal show_pixels As Boolean)
Dim i As Integer
Dim byte_mask As Integer
Dim r As Integer
Dim c As Integer
Dim pixel As Integer
Dim clrr As Byte
Dim clrg As Byte
Dim clrb As Byte
Dim color_mask As Integer
byte_mask = 1
For i = 1 To 8
' Pick a random pixel and RGB component.
PickPosition used_positions, wid, hgt, r, c, pixel
' Get the pixel's color components.
UnRGB picImage.Point(r, c), clrr, clrg, clrb
If show_pixels Then
clrr = 255
clrg = clrg And &H1
clrb = clrb And &H1
End If
' Get the value we must store.
If Value And byte_mask Then
color_mask = 1
Else
color_mask = 0
End If
' Update the color.
Select Case pixel
Case 0
clrr = (clrr And &HFE) Or color_mask
Case 1
clrg = (clrg And &HFE) Or color_mask
Case 2
clrb = (clrb And &HFE) Or color_mask
End Select
' Set the pixel's color.
picImage.PSet (r, c), RGB(clrr, clrg, clrb)
byte_mask = byte_mask * 2
Next i
End Sub
Private Sub PickPosition(ByVal used_positions As Collection, ByVal wid As Integer, ByVal hgt As Integer, ByRef r As Integer, ByRef c As Integer, ByRef pixel As Integer)
Dim position_code As String
On Error Resume Next
Do
' Pick a position.
r = Int(Rnd * wid)
c = Int(Rnd * hgt)
pixel = Int(Rnd * 3)
' See if the position is unused.
position_code = "(" & r & "," & c & "," & pixel & ")"
used_positions.Add position_code, position_code
If Err.Number = 0 Then Exit Do
Err.Clear
Loop
End Sub
Private Sub UnRGB(ByVal color As OLE_COLOR, ByRef r As Byte, ByRef g As Byte, ByRef b As Byte)
r = color And &HFF&
g = (color And &HFF00&) \ &H100&
b = (color And &HFF0000) \ &H10000
End Sub
|
|
|
|
|
Hi I m cs std. I m trying to do the Draw chat in AxMSChart control using timer control.When I m moving one y1 axes it will work perfectly when i m trying to do 2 line then bug will come. plz some help me...
This is code I m using.
Dim count As Integer = 1
Dim count1 As Integer = 1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
MSChart1.Column = 1
If count < 500 Then
MSChart1.Data = 800
ElseIf count < 1000 Then
MSChart1.Data = 900
ElseIf count < 1500 Then
MSChart1.Data = 1000
Else
MSChart1.Data = 1100
End If
count = count + 1
MSChart1.Column = 2
If count1 < 500 Then
MSChart1.Data = 1100
ElseIf count1 < 1000 Then
MSChart1.Data = 1000
ElseIf count1 < 1500 Then
MSChart1.Data = 900
Else
MSChart1.Data = 800
End If
count1 = count1 + 5
End Sub
Timer interval is 1000.
any ans send to this E-mail ID <osrnananda@rediffmail.com>
|
|
|
|
|
osrnananda wrote: When I m moving one y1 axes it will work perfectly when i m trying to do 2 line then bug will come
And that bug would be .....???
|
|
|
|
|
I m using Line Chart. When I run code using y1 axes it work correctly but when i try to run both it shows like bar or similarly like bar chart. So plz give me a solution Thanx's
|
|
|
|
|
How do i remove this thing!
I created my crystal report via the wizard.
|
|
|
|
|
|
Thank you! That did it!
Will it also work if i transfer my application in another PC?
|
|
|
|
|
You're welcome 
Basically it will work fine. However, it slightly depends on what kind of datasource you have.
If you're connecting to a database server, it will typically works fine as is, but if your datasource is for example a xml file then you have to take care that the directory is correct for database logon in another computer when pointing the file.
If you encounter problems later, open a new thread and we'll try to help.
Mika
The need to optimize rises from a bad design.
My articles[ ^]
|
|
|
|
|
thank you! it worked.
|
|
|
|
|
You're welcome
The need to optimize rises from a bad design.
My articles[ ^]
|
|
|
|
|
I need help understanding this procedure.
The project I am working on requires me to printout a form and email it to another department in myh company. The printout is exactly the way I want it, but I am not clear on how to save the PrintDocument to an image. The following link has an example of exactly what I am trying to accomplish, but don't understand how to use "MyObj" to do both.
http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=2664510&SiteID=1[^]
Any help would be appreciated
|
|
|
|
|
What's "MyObj"?? I don't see that anywhere in that code you linked to. I thought the code was pretty self explanitory. What don't you understand about it??
|
|
|
|
|
I found that the code I tried to use earlier for my project didn't work for me (link). So, I found code that did what I needed, and that I could understand. This is the code that I used.
<pre>
Option Strict Off
Public Class Form1
Dim pdoc As New Printing.PrintDocument()
Friend WithEvents ppc As New Printing.PreviewPrintController()
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
pdoc.PrintController = ppc
AddHandler pdoc.PrintPage, AddressOf pdoc_PrintPage
AddHandler pdoc.EndPrint, AddressOf xxx
' This shows nothing on the screen. It ends
' up calling the 'xxx' sub which saves the
' printpage images to files
pdoc.Print()
' This will show a regular print preview
pdoc.PrintController = New Printing.StandardPrintController
Dim ppd As New PrintPreviewDialog
ppd.Document = pdoc
ppd.ShowDialog()
End Sub
Private Sub pdoc_PrintPage(ByVal sender As Object, _
ByVal e As Printing.PrintPageEventArgs)
Static z As Integer = 0
If z = 0 Then
e.Graphics.DrawString("Page pg1", New Font("Arial", 48), _
Brushes.Black, New PointF(100, 100))
z += 1
e.HasMorePages = True
ElseIf z = 1 Then
e.Graphics.DrawString("Page pg2", New Font("Arial", 48), _
Brushes.Black, New PointF(100, 100))
z += 1
e.HasMorePages = True
Else
e.Graphics.DrawString("Page pg3", New Font("Arial", 48), _
Brushes.Black, New PointF(100, 100))
e.HasMorePages = False
z = 0
End If
End Sub
Private Sub xxx(ByVal sender As Object, _
ByVal e As System.Drawing.Printing.PrintEventArgs)
Dim ppi() As Printing.PreviewPageInfo = ppc.GetPreviewPageInfo()
For x As Integer = 0 To ppi.Length - 1
ppi(x).Image.Save("c:\look" & x.ToString & ".jpg")
Next
End Sub
End Class
</pre>
Hope this comes in handy for someone else 
|
|
|
|
|
I'm writing an application to receive data from a hardware data logger and display it. The concept involves getting the data from a serial port, displaying it in a grid control, graphing it, then saving it in an ASCII delimited format.
So far, I receive the data and I load it directly into a DataGridView. As many of you know, this is extremely slow, especially for tens of thousands of data entries. I've read in a few places that it is more appropriate / efficient / expedient to use a DataGridView by binding it to a source of data. Much of the info I've found on the web relating to this concept deals with databases rather than a port based data stream.
I think my first design flaw was considering the DataGridView the actual data container. Much of this comes from using MSflexgrid in the past.
My questions are...
- Conceptually or architecturally how would you approach this problem?
- In what type of "container" should I receive the data into memory such that it will allow for easy manipulation (grid display, graphing, saving)?
Can anyone point me in the right direction? Thanks in advance.
|
|
|
|
|
Any application, even a game, is really just a specialized database management solution. The data you get from the serial port should be cleaned and validated, then put into a data model you construct. Exactly how you build the data model depends on your data and your requirements. Once you have the data model, you can use any controls you need to show it.
The DGV is not an efficient data container. It was designed to bind to various data sources and show and edit the data in that source. You're more worried about how to show and graph the data and not worrying about how you need to manage that data. Once you have the data model built, gridding and graphing it is easy.
Look into the DataSet and DataTable classes as a start. You may even just skip those and create your own classes for records and tables to do this.
|
|
|
|
|
Can someone suggest a PDF SDK for VB.NET that can write an image to a pdf, read from pdf and read text on image in pdf?
Preferably open source.
Thanks.
|
|
|
|
|
You'll need a couple of libraries. The first two requirements, just about any library, like PDFNet, can handle. Your third requirement, "read text on image", require the use of some OCR library.
|
|
|
|
|
|
Hello,
I would like to know how to add excel references dynamically.
Some times the software will be instal on computer with excel 2003 or excel 2007.
How can i do this ?
Thanks
|
|
|
|
|
Visual Studio Tools for Office. You can start reading up on it here[^].
|
|
|
|
|
Hi Freinds,
Please help me
i m using vb 6.0 and sql server 2000.
i have one table with 2 fields name as "start time" & "end time"
i want check in discrepancy of time when insert a data .
i use flex grid for data entry.
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
