|
Hello!
I have written a little subrutin to clone and mirror a panel into another form.
I would like to grow the size of clone. (zoom) 
I tried ScaleTransform but it's not work.
Here is my code:
Private Sub CloneMirrorZoom()
Dim b1 As Bitmap
Dim g1 As Graphics
b1 = New Bitmap(Me.Width, Me.Height)
g1 = Graphics.FromImage(b1)
g1.CopyFromScreen(Me.Location + Panel1.Location, Panel1.Location, Panel1.Size)
g1.ScaleTransform(2.3F, 4.5F)
b1.RotateFlip(RotateFlipType.RotateNoneFlipY)
Form2.CreateGraphics.DrawImage(b1, 0, 0)
End Sub
Please help me, what is wrong?
thx.LD
-- modified at 4:11 Friday 19th May, 2006
|
|
|
|
|
If you applay ScaleTransform to a graphics object it doesn't mean that the current contents gets transformed but that all coming drawing operations gets resized. In this scenario you won't need ScaleTransform at all:
b1 = New Bitmap(Me.Width, Me.Height)
g1 = Graphics.FromImage(b1)
g1.CopyFromScreen(Me.Location + Panel1.Location, Panel1.Location, Panel1.Size)
'g1.ScaleTransform(2.3F, 4.5F)
b1.RotateFlip(RotateFlipType.RotateNoneFlipY)
Form2.CreateGraphics.DrawImage(b1, 0, 0, b1.Width * 2.3F, b1.Height * 4.5F)
Also think about painting the image in the form via its Paint event instead of drawing it here directly. You could do this by setting some field to the generated bitmap and calling invalidate on the form. After that the Paint event will be thrown and you can draw your image there.
Also never forget to dispose created Graphics instances.
|
|
|
|
|
What a fast answer!
Very thank You!
|
|
|
|
|
I have a text file (Japanese) with encoding like this:
annon = \u30a2\u30ca\u30a6\u30f3\u30b9
send_annon_each = \u305d\u308c\u305e\u308c\u306e\u901a\u77e5\u3092\u500b\u5225\u306b\u9001\u308b
I don't know it's encoding and how to create it. Please help me. Thanks.
|
|
|
|
|
i have a view which from employee table which has two coloums empid and empname. i make a dataset from it and give it to the datagrid, i want to know edit data in datagrid
plz help me.
|
|
|
|
|
Hi ITstud,
Go through this link it will be helpful
http://samples.gotdotnet.com/quickstart/aspplus/samples/webforms/ctrlref/webctrl/datagrid/doc_datagrid.aspx
Best Regards,
Apurva Kaushal
|
|
|
|
|
hi,
i want design a windows application where i'll give a word document as input. from that document i have to separate only the email ids and store it in a separate file. how to start? anybody give me a clue or a skeleton of this task
David Boon
|
|
|
|
|
Hi,
You will have to create temporary Word document object in your project. Then on some event like button click write code to attach the word document to this temporary object and use the object to send commands to word document. Now for the email addresses part, you can use the regular expression class Regex for that. just search for it in msdn.
Anant Y. Kulkarni
|
|
|
|
|
We are using the MSScriptControl in VB.NET using interop. (VS.net 2005)
I have set the "Make assembly COM visible " in the assembly information of project.
This will allow me to pass " Me" to the AddObject method of scriptcontrol
I have a form with 3 labels. Label1,label2,label3
I am writing the following code in the Form Load event
Dim sc As New MSScriptControl.ScriptControl
Dim sParser As String
Dim sParser1 As String
Dim sParser2 As String
sc.Language = "VBScript"
sc.AddObject("Form1", Me)
sParser = " Form1(""label1.text"") = ""This is Label1"""
sParser1 = " Form1(""label2.text"") = ""This is Label2"""
sParser2 = " Form1(""label3.text"") = ""This is Label3"""
sc.ExecuteStatement(sParser)
sc.ExecuteStatement(sParser1)
sc.ExecuteStatement(sParser2)
Functionality i need to achieve is after the execution of the executeStatement methods
Label1.text should contain the value This is Label1
Label2.text should contain the value This is Label2
Label3.text should contain the value This is Label3
Right now the compiler throws the exception " Wrong number of arguments to Form1"
I think i am not creating the parser statement in the proper way .
Any insight on the right procedure would be a great help
Thanks
Deva (dpideva@gmail.com)
Deva
|
|
|
|
|
Dear sir,
I am in big problem ,please understand my problem,now i am going to describe my problem,
I am capturing live image using webcam, on clicking on picture box images is save on harddrive and display on another picture box,this is not my problem.
My problem is that how to transfer this image to another machine at the same time and show the image on that machine with same software running on that machine.
I hope you understand my problem,please help me
Thanks
prabhakar dwivedi
-- modified at 1:28 Friday 19th May, 2006
|
|
|
|
|
There are several ways on how to do this. I recommend either reading some Remoting[^] or Sockets[^] articles.
|
|
|
|
|
you will probly have to send if over the network using the winsock. just look up some winsock tut's its pretty simple. btw do you have any tips or tuts on how to capture from webcam?
|
|
|
|
|
I have create a project, and some guids is in register.
How can I drop the project completely with register?
|
|
|
|
|
I have a two part question here...
Question #1
When i have a virtual listview control, and try to set the "ShowCheckboxes" property i get an error saying that it can't use checkboxes when in virtual mode... so other using some tricks with images, and over complicating things by doing an owner drawn listview as well is there anyway i can get these checkboxes to show up?
Question #2
I was wondering if there is any possible way to make a virtual treeview control, there doesn't to be any "virtual*" properties on treeview controls like there are for Listview controls...
|
|
|
|
|
Hi all:
I’m having a problem connecting to a secure database using Microsoft ActiveX Data Object 2.8.
I have a database I password protected and I want to make a connection to this database using the connection string. When I include the User ID and Password in the connection string I get the following error: Error#: -2147217843 Error in Microsoft JET Database Engine à cannot start your application. The Workgroup information file is missing or opened exclusively by another user.
I’m testing this on my laptop. The database is being accessed solely by my VB6 application.
When I try to connect to the database without providing the User ID or Password I get this error: Error#: -2147217843. Error in Microsoft JET Database Engine à Not a valid password. Note: The error number are the same, but the problem is different.
I can open this database without any problems from Microsoft Access. Can anyone shed some light on how to fix this?
Here is the function I’m using to connect to the Access database:
Public Function Jet_Connection(strProv as string, strDB as string, strUser as string , strPasswd as string) As Integer
On Error GoTo Jet_Connection_Err
Dim strConn As String
strConn = "Provider=" & strProv & ";Data Source=" & strDB & ";User ID=" & strUser & ";Password=" & strPasswd & ";"
Set cnnMainDb = New ADODB.Connection
With cnnMainDb
.ConnectionString = strConn
.Open
If .State = adStateOpen Then
Set cat.ActiveConnection = cnnMainDb
Jet_Connection = adStateOpen
End If
End With
Jet_Connection_Exit:
Exit Function
Jet_Connection_Err:
Set cat = Nothing
If Not cnnMainDb Is Nothing Then
If cnnMainDb.State = adStateOpen Then cnnMainDb.Close
End If
Set cnnMainDb = Nothing
Jet_Connection = adStateClosed
If Err <> 0 Then
MsgBox "Error#: " & Err.Number & vbCr & "Error in " & Err.Source & " --> " & _
Err.Description, , "Error Jet_Connection"
End If
Resume Jet_Connection_Exit
End Function
Quecumber256
|
|
|
|
|
Is your Access DB password protected only?
Meaning no user name/password login?
If so, then your connection string should look something like this...
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
strDB & ";Jet OLEDB:Database Password=" & strPasswd
|
|
|
|
|
Hi Joshua:
I tried your connection string, and I received this error:
Error #: -2147467259
Error in Microsoft JET Database Engine --> Could not find installable ISAM.
Thsnk you,
Quecumber256
|
|
|
|
|
|
Joshua:
Thanks
Quecumber256
|
|
|
|
|
Hello. I'm having a problem with focus. I'm developing an application with VS 2005 that is like the Outlook mail notification. I have a NotifyIcon and at a time a winform appear. The problem is that when I'm typing for example a word document and the alert appear I lost the focus to the alert and I can't continue typing my document. I call the window with frmForm.Show();
Thanks a lot !!!
|
|
|
|
|
I need to call an .EXE VB program and pass a parameter to it. Could someone please post code that would except a parm.
Thank you
|
|
|
|
|
Calling Process.Start()[^] allows you to startup an exe and pass arguments to it.
For example:
System.Diagnostics.Process.Start("MyVbApp.exe", "Argument1 Argument2")
|
|
|
|
|
Look at Environment.GetCommandLineArgs()
Scott
-- modified at 17:13 Friday 19th May, 2006
Sorry, somehow I replied to the wrong message.
|
|
|
|
|
Scott Serl wrote: Sorry, somehow I replied to the wrong message.
I think there's a bug in the message board. My replies sometimes (but rarely) go to the wrong messages too.
|
|
|
|
|
I have got a method that recursively loops through directories and pulls either Pictures or Plans out of there respective directory.. Each plan or picture may or may not have a description associated with it.. I finally got the method to where everything is in sync and not throwing any errors..
Here is what i need help with..
Where i keep calling this method while i am still in the method but i would like to do this with these changes..
1. Remove the parameters and somehow reset the true and false with in the method itself
2. What is the best way to keep track of the built objects while the method is called over and over.. i loose my values when recalling...
I guess what i am saying is that once i am in the method i need a way to recursively keep calling the method and be able to keep track of my built object and then i need a way to step out of the method after certain events have happened..
One of the reason that i am asking is becasuse i just flat out need some advice on this one..
PLEASE.... SOS
Next (s)
End If
FileHandler(False, True) <-----something different here..
End Sub
------------------------
Thanks..
erik
Private Sub FileHandler(Optional ByVal ForPlan As Boolean = True, Optional ByVal ForPic As Boolean = False)
Dim strPlans() As String = Directory.GetFiles(Server.MapPath(m_Path & "Plans"))
Dim strPics() As String = Directory.GetFiles(Server.MapPath(m_Path & "Pictures"), "s_A-F-C-C-*")
Dim gstrFiles() As String = {}
Dim strPlanDesc() As String = Directory.GetFiles(Server.MapPath(m_Path & "Plans/Temp/"))
Dim strPicDesc() As String = Directory.GetFiles(Server.MapPath(m_Path & "Pictures/Temp/"))
Dim gstrDescr() As String = {}
Dim oFiles As AFCCServices.Files = Nothing
Dim strDirecType As String = ""
Dim strExt As String = ""
Dim strHolder As String = ""
Dim iNum As Byte = 0
---I know this is not right but i am still trying to figure all of this out
Dim i As Int16 = CShort(strPics.Length)
Dim ii As Int16 = CShort(strPlans.Length)
Dim iii As Int16 = i + ii
Dim aServ(iii)As AFCCServices.Files
-----
Dim aFsPicDescr(strPicDesc.GetUpperBound(0)) As AFCCServices.Files
Dim aFsPlanDescr(strPlanDesc.GetUpperBound(0)) As AFCCServices.Files
If ForPlan = True Then
gstrFiles = strPlans
gstrDescr = strPlanDesc
End If
If ForPic = True Then
gstrFiles = strPics
gstrDescr = strPicDesc
End If
If gstrFiles.Length > 0 Then
For Each s As String In gstrFiles
oFiles = New AFCCServices.Files
oFiles.Name = Path.GetFileName(s)
If ForPlan = True Then oFiles.Type = Global.AFCCServices.FilesType.Plan
If ForPic = True Then oFiles.Type = Global.AFCCServices.FilesType.Picture
s = Path.GetFileName(s)
strExt = Path.GetExtension(s)
s = s.Replace(strExt, "")
If gstrDescr.GetUpperBound(0) > 0 Then
For Each ss As String In gstrDescr
strHolder = ss
strHolder = Path.GetFileName(strHolder)
strExt = Path.GetExtension(strHolder)
strHolder = strHolder.Replace(strExt, "")
If strHolder.Replace("p_AFCC_PlanRef_", "") = s.ToString Then
'Get the text from the text file
Try
If ForPlan = True Then strDirecType = "Plans"
If ForPic = True Then strDirecType = "Pictures"
' Create an instance of StreamReader to read from a file.
Using sr As StreamReader = New StreamReader(Server.MapPath(m_Path & strDirecType & "/Temp/" & Path.GetFileName(ss)))
Dim line As String
' Read and display the lines from the file until the end
' of the file is reached.
Do
line = sr.ReadLine()
oFiles.Description = oFiles.Description & (line)
Loop Until line Is Nothing
sr.Close()
End Using
Catch e As Exception
' Let the user know what went wrong.
End Try
End If
Next (ss)
End If
If ForPlan = True Then aFsPlanDescr(iNum) = oFiles
If ForPic = True Then aFsPicDescr(iNum) = oFiles
aServ(iNum) = aFsPlanDescr(iNum)
iNum = CByte(iNum + 1)
Next (s)
End If
FileHandler(False, True)
End Sub
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
