Splitting Images

Visual Basic Language

‹ Visual Basic
- Archive
  - VB
  - Windows Forms
  - Smart Device
  - Game
  - Windows Vista
  - VS 2008
  - Office
  - Visual Studio
  - IE
  - Architecture
  - VFP
  - SharePoint
  - ISV
  - Visual C#
  - Windows Live
  - VC++
  - SQL Server
  - Dotnet
  - VS Express

- Previous
  - 1
    - VS2005 without .NET Framework Scott Wisniewski - MSFT wrote: Yes. You can develop C++ applications in VS 2005 that do not depend on the .NET Framework. VB apps, however, requires the .NET Framework. Hi, I guess that's us all told.... Can you give a very short example please Regards, S_DS Tag: Splitting Images
  - 2
    - not able to open vb6 app after installing sp2 VB6 application was working fine untill i install xp servicepack 2. after installing sp2 , when i try to open , no response... i used firewall exceptions ...still no luck .. Vb6 application contains com component developed in vb6 Could any one tell me how to solve this issue ... thanks aravind Tag: Splitting Images
  - 3
    - Need Help with a System.Windows.Forms.BindingNavigator Actually you do not need to change your textboxes to labels. You can use TextBox.ReadOnly Property. If true then it does not allow user to change the text, else, user can change the text Here it is If mRowState = DataRowState.Added Then ' this is new row Me. Textbox1.ReadOnly = False Else If mRowState = DataRowState.Unchanged Then ' this already exist Me. Textbox1.ReadOnly = True End If Have Funn!! Tag: Splitting Images
  - 4
    - Polymorphism? How can you avoid "switch" statements? How you doin, Gave it a bit more thought and another way you could get this working without a case statement and for all controls although it does only work if your planning to run the same drawing code for all controls is this. Create a method that accepts a delegate that creates a graphics object. People that use the code could pass the function that creates the graphics object for the control you want to draw on. In your method you call the delegate get the returned graphics object and draws with it. Maybe thats too much, I'm not sure but it will certainly be future proof. Like this... Code Snippet Public Delegate Function GetGraphics() As System.Drawing.Graphics Public Class DrawingClass Public Sub DrawOnControl( ByVal method As GetGraphics) Dim g As Graphics = method.Invoke() End Sub End Class If you didn't want to go this way you could also create an Interface that describes the information your method needs to work. Developers would implement this interface in their classes, fill in the required data, and pass it to your method. Your method then knows what methods and information is the object being passed. Tag: Splitting Images
  - 5
    - Writing a plug-inable application in .net 2 Considering you're being extremely vague about you want to do, then I suggest you have a look at VSTA. It's about as close as I can guess about what you want to do. Tag: Splitting Images
  - 6
    - Now() returns value that is not the same in VB.Net as it was in VB6? Wanted to put this out to save someone else from the time I spent figuring this out: This happened in VB.Net under VS2005, using DAO3.6 and Access2003. The upgraded application was originally VB6, DAO3.51 and Access97. In VB6 had a module level var named mLastUpdate As Date. Var was set to "Now" (current system date and time) when Name property was set. Public Property Name() As String Get Name = mName End Get Set(ByVal Value As String) mName = Value mLastUpdate = Now mDirtyData = True End Set End Property Data was saved to a recordset with the name and lastupdate fields set: myRS.Fields("Name").Value = mName myRS.Fields("LastUpdate").Value = mLastUpdate myRS.Update() Then retrieved the row just inserted in order to get the Autogenerated ID number from the database table. myRS = myDB.OpenRecordset("SELECT ID FROM Company WHERE LastUpdate=#" & mLastUpdate & "#;", dao.RecordsetTypeEnum.dbOpenSnapshot) Code worked fine in VB6 - last added/updated row was returned; however, in .Net the row was not returned. When running the SQL inside Access using the date/time from the table it still would not return the row. Tried formatting mLastUpdate as it was being assigned to the recordset value, but still no luck. Within the property SET, I then tried formatting: mLastUpdate = FormatDateTime(Now, vbGeneralDate). Now it works perfectly like it did before. I could have used @@Identity (which also works) but wanted to keep the code as close to the original as possible to avoid introducing more problems. I'm not sure if the change that effects "Now()" is happening under Access or .Net, but wanted to make people aware that it is evidentally out there. Tag: Splitting Images
  - 7
    - Storing values from a file permanently so that the file is not necessary once compiled I realize now that I explained it wrong. My array will actually be two dimensions Array(a,b). I want to read each row of data from the file and if column c is 0 for a particular row then the corresponding array value will be 0, but if column c is 1 then the array value will be 1. For example, the first six values in my array using my values above would be: array(0,0) = 0 array(0,1) = 0 array(0,2) = 0 array(0,3) = 0 array(0,4) = 0 array(0,5) = 1 I also provided a shortened format of my file. The actual dimensions of the array would be array(0 to 29, 0 to 24), so there are a lot of possible combinations. I know how to read from the file and assign to an array as described above. My question is actually what the second replier is getting at. The values will not change so I want them to be included in the executable without having to send an extra file to each user. Thanks for the suggestions Tag: Splitting Images
  - 8
    - how to execute form ? Can you direct me to the startup option in my application please All I can find is the startup project options, which only offers me one choice and that is the application name rather than a list of forms that i can choose to test them. Many thanks for getting back to me. I didnt get a notification so sorry for the late reply. I like the sound of the switchboard option and this is something I wish to use just hope it not too difficult to build it very easy in access this is my first attempt @ C#. Tag: Splitting Images
  - 9
    - How do I set delay between code? I use a loop with a application.doevents in it, pauses the code but leaves the gui active. I do it in milliseconds generally... 1000 milliseconds = 1 second. Dim Timer As DateTime = Now.AddMilliseconds(2000) do application.doevents() until now > timer Tag: Splitting Images
  - 10
    - XP/Vista ADOX References I built a large application on XP and a tiny but needed component uses ADOX for table creation and persistance in an Access database. I couldn't build the project on Vista until I deleted the ADOX reference and replaced it because msadox.dll has moved from Windows/System32 to Program Files\Common Files\System\ado. If I wanted to support a single build on both operating systems am I going to have to resort to late binding That's not an easy dll to late bind to. Tag: Splitting Images
  - 11
    - Unexpected results from PrintDocument1 PrintPage event John & TallDude, Thank you. I see that I have to control things much more explicitly than I'm used to. I'd've been perfectly happy with C:copy filename.txt lpt1:.... Fred :-{)}---// Tag: Splitting Images
  - 12
    - Array Help I like the idea of ArrayList (Mainly because im a java programmer) However when I use your code I get: Compliation Error: User defined type not define Do i need to import anything If so whats the syntax Im a real novice VB programmer Tag: Splitting Images
  - 13
    - Trapping Mouse Clicks I asked "why"! Guess that's an answer. Sorry, I dont' know how to subscribe to the event either. Just FYI, I also have a custom hardware device based on XP Embed that runs a custom app and uses a touchscreen. I allow use of the windows OSK and prevent running other applications using Group Policy. I haven't had complaints of mispressed keys, but screen resolution and touch screen sensitivity may account for that. Since your problem isn't really VB related, you may need to try asking in a Windows API specific forum... Oh, unless the other app that processes your login is also a .NET application - if it is, you may be able to use Reflection to communicate with it instead of the API... Tag: Splitting Images
  - 14
    - Delete row from datagridview view There is an event that fires called UserDeletingRow. Not sure if that would fire before or after your error though. But you might take a look at that one. Tag: Splitting Images
  - 15
    - How to set the WMI Privilege on VB 2005? Once I enable the privilege for WMI on VB 2005. Dim options As ConnectionOptions options = New ConnectionOptions() options.EnablePrivileges = True What CODE AND Where I put the code to specify the privile like SHUTDOWN, REMOTE SHUTDOWN, BACKUP, RESTORE, AUDIT, SECURITY, CREATETOKEN....ETC ....ETC... Guys any help is super appreciated. Thanks, PRJUANL. Tag: Splitting Images
  - 16
    - Run-time error 339: Component 'MSCOMM32.OCX' or one of its dependencies not correctly registerd: a file is missing or invalid. Hi, Which version of Windows XP + service pack1 or service pack 2 or other mswinsck.ocx and mscomm32.ocx , are not in Windows Vista see.>> http://msdn2.microsoft.com/en-us/vbrun/ms788708.aspx Put an email address in your profile then and I will try to help you. Regards, S_DS Tag: Splitting Images
- Next
  - 1
    - TXT File to MS Access I like your approach to this problem, but keep in mind that everything before the "=" sign is a header and everything after is the value for each line. Unfortunately, the txt file is not created in a table like format. In other words, for every line you have the header and the value. I guess this is the most difficult part for me to figure out. Any ideas Thanks, ElDorado.- Tag: Splitting Images
  - 2
    - Can I Create an enum on Runtime, or change Enum values or member Names ? hi Zadeh Enum are tools for design time to let the programmer have a engilsh word that repersents a value.... At runtime the code doesn't care what the engish word is it just wants the value. So a collection would be a better opption at run time... Collections come in all different types so its easy to find one that fits your dataset.... Tag: Splitting Images
  - 3
    - Creating a view meter. Well, vb6 had the vertical progress bar. I'm not sure if you converted it to a .net it would remain that way. In either case, a really quick way of setting up a vu meter was to make a vertical progress bar, with values min-0 max-100, and set the .value property to the vu 'level'. Tag: Splitting Images
  - 4
    - Where is the Fill() method? I am still having problems with the above NewRow, DataTable method to population an Access Database, as my original question, which I would like to crack. Anyone who could help to solve this problem would be very much appreciated. However, the below code, which may be of interest, does work, although somewhat convoluted. hemo Public Sub InsertRow() ĄŽ Assumes valid connection connection.Open() Try Dim cmd As New OleDbCommand( "Insert Into Test " & _ "(Name1,Name2,Name3)Values( , , )" , connection) cmd.ExecuteNonQuery() Catch ex As Exception MsgBox(ex.Message) End Try connection.Close() End Sub Tag: Splitting Images
  - 5
    - populating an Access database using visual basic 2005 This helps... but i still dont fully understand it :(... I like the datagridview way better... but seeing as how many users will be using it i dont think that my boss will like it so much... unfortunately... I am going to do it both ways and see which he likes better... however, what i dont understand is: (i am only going to be asking questions from the insert into the database from textbox b/c i am pretty sure thats how he wants it) A) how does the OLEdbCommand work... (sorry i am just a student trying to do a proffessional's job :( ) B) all the code is done on the submit button right we dont need to establish the connection on the form load C) what is an nvarchar :( I think i am going to leave it at that for now... and there is a 99% chance i will be asking more questions from your reply and i will come up with more questions as i am trying to code this. Tag: Splitting Images
  - 6
    - Messagebox Results as variables Hello all. I've been working on a project where i need to store the result of a messagebox with Yes/No buttons to a variable for later use. I remember having learned how to do it in class, but that was in November and I have since then forgotten. Can anyone here help Thanks! Kyle Tag: Splitting Images
  - 7
    - OracleConnection Scope I have a class that creates an oracle connection to a database that is compiled code and works fine. i pass an oracleconnection object back to the calling program and it uses it perfectly, until the code fully runs and it is time fo ruser imput and a form shows. the user does what ever he does then a query is launched that uses the conneciton object again and all of a sudden it is closed. I am not sure i under stand how that happens. when i put a watch on it you can see that the string stays in place until the user clicks on the combobox. right when the program enters the code the connectionstring is gone Tag: Splitting Images
  - 8
    - Adding data in one column together The sql query, needs to be string value, basically, you need it to read something like this: sQuery = "select sum(winnings) as total from AmountsTable" If you don't assign it to a string variable or a command, then it will read the query as executeable code. Since the method Sum() has not been created and the variable winnings has not been created, you get errors. Can you post a larger part of your code for us to look at Tag: Splitting Images
  - 9
    - Text Alignment Justified Maybe this might help you... Also keep in mind that in VB 2005 (at least the only on I know for sure) will do an auto complete and will give all of the text alignment options in the final part of the code. What you need for a test run: label called: lblText button called: btnButton Code Block Public Class Form1 Private Sub Form1_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .Load With lblText .AutoSize = False End With End Sub Private Sub btnButton_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnButton.Click lblText.TextAlign = ContentAlignment.BottomRight End Sub End Class Tag: Splitting Images
  - 10
    - How to seperate data from the Rightextbox ? Hi Suis, This method only works well when you first select a image object in the richtextbox control. Here is the code snippet about this method. I modify it from the above thread by adding CloseClipboard() API. Code Block Imports System.Drawing.Imaging Imports System.Runtime.InteropServices Public Class Form14 Public Const CF_ENHMETAFILE As Integer = 14 <DllImport( "user32.dll" , EntryPoint:= "OpenClipboard" , SetLastError:= True , ExactSpelling:= True , CallingConvention:=CallingConvention.StdCall)> _ Public Shared Function OpenClipboard( ByVal hWnd As IntPtr) As Boolean End Function <DllImport( "user32.dll" , EntryPoint:= "GetClipboardData" , SetLastError:= True , ExactSpelling:= True , CallingConvention:=CallingConvention.StdCall)> _ Public Shared Function GetClipboardData( ByVal uFormat As Integer ) As IntPtr End Function <DllImport( "user32.dll" )> Private Shared Function CloseClipboard() As Boolean End Function Private Sub Form1_Load( ByVal sender As Object , ByVal e As System.EventArgs) Handles Me .Load RichTextBox1.LoadFile( "C:\testimg.rtf" ) End Sub Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click RichTextBox1.Copy() If OpenClipboard( Me .Handle) Then Try Dim MF As New Metafile(GetClipboardData(CF_ENHMETAFILE), True ) MF.Save( "C:\MF.bmp" , ImageFormat.Bmp) CloseClipboard() Catch ex As Exception MessageBox.Show(ex.Message + "You need to select a image object" ) End Try End If End Sub End Class Best regards, Riquel Tag: Splitting Images
  - 11
    - Possible to update a VB 2005 control's 'enabled' property via code while in the IDE environment? The "Enabled" property is treated specially, it's called a shadowed property. The control's designer keeps track of the value itself, and does not pass it on to the control being designed. You wouldn't want the control to actually become disabled at designtime, right Unfortunately, this means that if you want to control the Enabled property's value at designtime, you'll have to create a control designer yourself and make your Mode property a shadowed property. You can find more information at http://msdn2.microsoft.com/en-us/library/ms973820.aspx#custdsgnrdotnet_using , but here's a code snippet that should get you started. Be sure to look for the "TODO" comment before running. Code Snippet Imports System.ComponentModel Imports System.Windows.Forms.Design Public Class MyButtonDesigner Inherits ControlDesigner 'Need to add reference to System.Design for this Protected Overrides Sub PreFilterProperties( ByVal properties As System.Collections.IDictionary) MyBase .PreFilterProperties(properties) 'Replace our Mode property Dim descriptor As PropertyDescriptor = CType (properties( "Mode" ), PropertyDescriptor) If descriptor IsNot Nothing Then properties( "Mode" ) = TypeDescriptor.CreateProperty( GetType (MyButtonDesigner), descriptor, New Attribute() {}) End If End Sub Private Property Mode() As MyButton.modeType Get Return ShadowProperties( "Mode" ) End Get Set ( ByVal value As MyButton.modeType) 'Note this value is not passed to the actual ' control ShadowProperties( "Mode" ) = value 'Change Enabled (a shadows property) and TabStop (not a shadowed ' property) according to new Mode value. If value = MyButton.modeType.thismode Then ShadowProperties( "Enabled" ) = False Control.TabStop = False Else ShadowProperties( "Enabled" ) = True Control.TabStop = True End If End Set End Property End Class 'TODO: change the assembly name here <Designer( "WindowsApplication11.MyButtonDesigner" )> _ Public Class MyButton Inherits Button Public Enum modeType thismode = 1 thatmode = 0 End Enum Private buttonMode As Integer = 0 Public Property Mode() As modeType Get Return buttonMode End Get Set ( ByVal Value As modeType) buttonMode = Value If buttonMode = modeType.thismode Then Me .Enabled = False TabStop = False Else Me .Enabled = True TabStop = True End If End Set End Property <EditorBrowsable(EditorBrowsableState.Never)> _ Public Shadows Property Enabled() As Boolean Get Return MyBase .Enabled End Get Set ( ByVal value As Boolean ) MyBase .Enabled = value End Set End Property End Class Tag: Splitting Images
  - 12
    - How to access standard icons IceAngel89, The operating system Icons are included in the %SystemRoot%\system32\SHELL32.dll file. However, you can also choose the proper icons by searching .ico file on your local computer. Then from the Internet, I suggest you to visit this website that provides you enough standard icons: http://www.programsdb.com/category/3/2/2/0.html Some of the websites also provide the rar or zip package for the whole standard icons. Tag: Splitting Images
  - 13
    - Not able to edit DOTNET User control when calling from VB (Unless you you doible click inside the control) Hi, I develeoped a dotnet user control containing picturebox to display TIFF files. The purpose of this control is, want use in VB. I am able to display the image in VB form, but not able to view the control properly in VB, I mean with all features. Eventhough image size is bigger, control not displaying the scroll bars unless I double click inside the control. Control is not getting focuss unless you double click inside the control. But same control working very well when I try to call from windows forms in dotnet. Also would like to know, how to get the properties displayed in VB. Current, the user control display only default properties. If somebody get back on this ASAP, that will be great help since it is bit urgent. Thanks Vasu Tag: Splitting Images
  - 14
    - Listbox coding help Code Snippet Private Sub ListBox1_SelectedIndexChanged( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged Label1.Text = ListBox1.SelectedItem End Sub No matter what item is selected the Label text will always change to reflect. You could also use a select case if you wanted the label to have differed text depending on which is selected Code Snippet Private Sub ListBox1_SelectedIndexChanged( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged Select Case ListBox1.SelectedItem Case "Option 1" Label1.Text = "You have picked Option 1" Case "Option 2" Label1.Text = "You have picked Option 2" End Select End Sub Tag: Splitting Images
  - 15
    - Hide form Just instantiate the form, dont show it. Tag: Splitting Images
  - 16
    - MySQL I just used the drivers from the MySQL site and everything attaches fine for me. I used the ADO.net driver and the Visual Studio Plugin. Tag: Splitting Images

jay Bukstein

I have a Windows VB application that views and copies TIF images, some single pages some multiply pages. What I need to do is to for each page in the tif is to break to image file into separte pages,

How can I do that

Top

Re: Splitting Images

jay Bukstein

One other thing I need to add is I need to split the TIF file from 1 multipage to many single page files.

Top

Re: Splitting Images

Riquel Dong ¨C MSFT

Hi Jay,

Based on your post, my understanding of your question is that you need to split the Tif image. Here is the code snippet to split the Tif image file. If you have any further questions, please tell me.

Code Snippet

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim tif As New Bitmap("c:\billy.tiff")

Dim framenumber As Integer = tif.GetFrameCount(System.Drawing.Imaging.FrameDimension.Page)

For x As Integer = 0 To framenumber - 1

tif.SelectActiveFrame(System.Drawing.Imaging.FrameDimension.Page, x)

Dim destimg As New Bitmap(tif.Width, tif.Height)

Dim gr As Graphics = Graphics.FromImage(destimg)

gr.DrawImage(tif, 0, 0)

destimg.Save("d:\temp\" + CStr(x + 1) + ".tif", System.Drawing.Imaging.ImageFormat.Tiff)

gr.Dispose()

destimg.Dispose()

End Sub

Best regards,

Riquel.

Top