TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET

Visual Basic General

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

- Previous
  - 1
    - Copy directory and show progress Although the method given is most efficient for simply showing a dialog during a copy or move, if you need more functionality, here is an example of a component that works with files. This example can copy and move files (and time those operations), as well as provide a directory list or populate nodes of a treeview. If you need any custom behavior during the copy process, this example can be extended to provide it: Code Snippet Imports System.Windows.Forms Public Class FileWorker Inherits System.ComponentModel.Component # Region " Designer Generated Component Code " <System.Diagnostics.DebuggerNonUserCode()> _ Public Sub New ( ByVal Container As System.ComponentModel.IContainer) MyClass .New() 'Required for Windows.Forms Class Composition Designer support Container.Add( Me ) End Sub <System.Diagnostics.DebuggerNonUserCode()> _ Public Sub New () MyBase .New() 'This call is required by the Component Designer. InitializeComponent() End Sub 'Component overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose( ByVal disposing As Boolean ) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase .Dispose(disposing) End Sub 'Required by the Component Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Component Designer 'It can be modified using the Component Designer. 'Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me .FileBackgroundWorker = New System.ComponentModel.BackgroundWorker ' 'FileBackgroundWorker ' Me .FileBackgroundWorker.WorkerReportsProgress = True Me .FileBackgroundWorker.WorkerSupportsCancellation = True End Sub 'Create background worker for async file manipulation Private WithEvents FileBackgroundWorker As System.ComponentModel.BackgroundWorker # End Region Private mSrcDir As String = String .Empty Private mDstDir As String = String .Empty Private mIncSub As Boolean = True Private mAutoDst As Boolean = True Public Event ProgressUpdate As EventHandler( Of ProgressUpdateEventArgs) Public Event WorkComplete As EventHandler( Of WorkCompleteEventArgs) Public Property SourceDirectory() As String Get Return Me .mSrcDir End Get Set ( ByVal value As String ) Me .mSrcDir = value End Set End Property Public Property DestinationDirectory() As String Get Return Me .mDstDir End Get Set ( ByVal value As String ) Me .mDstDir = value End Set End Property Public Property IncludeSubdirectories() As Boolean Get Return Me .mIncSub End Get Set ( ByVal value As Boolean ) Me .mIncSub = value End Set End Property Public Property AutoCreateDestination() As Boolean Get Return Me .mAutoDst End Get Set ( ByVal value As Boolean ) Me .mAutoDst = value End Set End Property Public Sub CopyDirectory() Me .DoCopyDirectory() End Sub Public Sub CopyDirectory( ByVal src As String , ByVal dst As String , Optional ByVal incsub As Boolean = True ) Me .mSrcDir = src Me .mDstDir = dst Me .mIncSub = incsub Me .DoCopyDirectory() End Sub Public Sub MoveDirectory() Me .DoMoveDirectory() End Sub Public Sub MoveDirectory( ByVal src As String , ByVal dst As String , Optional ByVal incsub As Boolean = True ) Me .mSrcDir = src Me .mDstDir = dst Me .mIncSub = incsub Me .DoMoveDirectory() End Sub Public Sub AddNodesToTreeView( ByRef tv As TreeView) Me .DoCheckSourcePath() Dim di As DirInfo di = Me .DoGetDirectoryInfo( Me .mSrcDir) Dim pn As New TreeNode(di.FolderName) tv.Nodes.Add(pn) Me .DoAddTreeNodes(di, pn) End Sub Public Function GetDirectoryInfo() As DirInfo Dim di As DirInfo di = Me .DoGetDirectoryInfo( Me .mSrcDir) Return di End Function Public Sub CancelCurrentOperation() If Me .FileBackgroundWorker.IsBusy Then Me .FileBackgroundWorker.CancelAsync() End If End Sub Private Sub FileBackgroundWorker_DoWork( ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles FileBackgroundWorker.DoWork Dim args As WorkEventArgValue args = CType (e.Argument, WorkEventArgValue) Dim prog As New ProgressUpdateEventArgs Dim sw As Stopwatch = Stopwatch.StartNew prog.OperationText = "Analyzing Directory Structure" prog.LastFile = Me .mSrcDir prog.PercentProgress = 0 Me .FileBackgroundWorker.ReportProgress(0, prog) Dim info As DirInfo info = Me .DoGetDirectoryInfo( Me .mSrcDir) Select Case args.Method Case WorkMethod.Copy prog.OperationText = "Copying Files and Directories" Case WorkMethod.Move prog.OperationText = "Moving Files and Directories" End Select prog.LastFile = Me .mSrcDir prog.PercentProgress = 1 Me .FileBackgroundWorker.ReportProgress(0, prog) For i As Integer = 0 To info.Files.Count - 1 If Me .FileBackgroundWorker.CancellationPending Then Exit For End If Dim str As String = info.Files(i) Select Case args.Method Case WorkMethod.Copy prog.OperationText = "Copying File" Case WorkMethod.Move prog.OperationText = "Moving File" End Select prog.LastFile = str prog.PercentProgress = Math.Round(i / info.TotalSubFiles, 2) * 100 Me .FileBackgroundWorker.ReportProgress(0, prog) Select Case args.Method Case WorkMethod.Copy System.IO.File.Copy(System.IO.Path.Combine( Me .mSrcDir, str), System.IO.Path.Combine( Me .mDstDir, str)) Case WorkMethod.Move System.IO.File.Move(System.IO.Path.Combine( Me .mSrcDir, str), System.IO.Path.Combine( Me .mDstDir, str)) End Select Next Me .DoWorkFiles(info, Me .mDstDir, info.Files.Count, args.Method) If args.Method = WorkMethod.Move Then System.IO.Directory.Delete(info.Path) End If sw.Stop() Dim res As New WorkCompleteEventArgs(sw.Elapsed) e.Result = res End Sub Private Sub FileBackgroundWorker_ProgressChanged( ByVal sender As Object , ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles FileBackgroundWorker.ProgressChanged Dim args As ProgressUpdateEventArgs args = CType (e.UserState, ProgressUpdateEventArgs) RaiseEvent ProgressUpdate( Me , args) End Sub Private Sub FileBackgroundWorker_RunWorkerCompleted( ByVal sender As Object , ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles FileBackgroundWorker.RunWorkerCompleted Dim args As WorkCompleteEventArgs args = CType (e.Result, WorkCompleteEventArgs) RaiseEvent WorkComplete( Me , args) End Sub Private Sub DoWorkFiles( ByVal di As DirInfo, ByVal dst As String , ByVal filcnt As Integer , ByVal mth As WorkMethod) For Each dir As DirInfo In di.Directories Dim pth As String = System.IO.Path.Combine(dst, dir.FolderName) If Not System.IO.Directory.Exists(pth) Then System.IO.Directory.CreateDirectory(pth) End If Me .DoWorkFiles(dir, pth, filcnt, mth) For Each str As String In dir.Files filcnt += 1 Dim prog As New ProgressUpdateEventArgs Select Case mth Case WorkMethod.Copy prog.OperationText = "Copying File" Case WorkMethod.Move prog.OperationText = "Moving File" End Select prog.LastFile = str prog.PercentProgress = Math.Round(filcnt / di.TotalSubFiles, 2) * 100 Me .FileBackgroundWorker.ReportProgress(0, prog) Select Case mth Case WorkMethod.Copy System.IO.File.Copy(System.IO.Path.Combine(dir.Path, str), System.IO.Path.Combine(pth, str)) Case WorkMethod.Move System.IO.File.Move(System.IO.Path.Combine(dir.Path, str), System.IO.Path.Combine(pth, str)) End Select Next If mth = WorkMethod.Move Then System.IO.Directory.Delete(dir.Path) End If Next End Sub Private Sub DoCopyDirectory() Me .DoCheckPaths() Me .DoRunFileWorker(WorkMethod.Copy) End Sub Private Sub DoMoveDirectory() Me .DoCheckPaths() Me .DoRunFileWorker(WorkMethod.Move) End Sub Private Sub DoCheckPaths() Me .DoCheckSourcePath() Me .DoCheckDestinationPath() End Sub Private Sub DoCheckSourcePath() If Not System.IO.Directory.Exists( Me .mSrcDir) Then Throw New InvalidOperationException( "The Source Directory specified cannot be found." ) End If End Sub Private Sub DoCheckDestinationPath() If Not System.IO.Directory.Exists( Me .mDstDir) Then If Me .AutoCreateDestination = True Then Try System.IO.Directory.CreateDirectory( Me .mDstDir) Catch ex As Exception Throw New InvalidOperationException( "The Destination Directory specified cannot be created." , ex) End Try Else Throw New InvalidOperationException( "The Destination Directory specified cannot be found." ) End If End If End Sub Private Sub DoRunFileWorker( ByVal mth As WorkMethod) If Not Me .FileBackgroundWorker.IsBusy Then Dim args As New WorkEventArgValue args.Source = Me .mSrcDir args.Destination = Me .mDstDir args.Include = Me .mIncSub args.Method = mth Me .FileBackgroundWorker.RunWorkerAsync(args) End If End Sub Private Function DoGetDirectoryInfo( ByVal pth As String ) As DirInfo Dim rtn As New DirInfo rtn.Path = pth rtn.FolderName = New System.IO.DirectoryInfo(pth).Name Dim files() As String = System.IO.Directory.GetFiles(pth) rtn.TotalSubFiles += files.Length For Each file As String In files rtn.Files.Add(System.IO.Path.GetFileName(file)) Next If Me .mIncSub Then Dim dirs() As String = System.IO.Directory.GetDirectories(pth) rtn.TotalSubDirectories += dirs.Length For Each dir As String In dirs Dim di As DirInfo di = Me .DoGetDirectoryInfo(dir) rtn.Directories.Add(di) rtn.TotalSubDirectories += di.TotalSubDirectories rtn.TotalSubFiles += di.TotalSubFiles Next End If Return rtn End Function Private Sub DoAddTreeNodes( ByVal di As DirInfo, ByVal node As TreeNode) For Each dir As DirInfo In di.Directories Dim n As New TreeNode(dir.FolderName) node.Nodes.Add(n) Me .DoAddTreeNodes(dir, n) Next For Each str As String In di.Files Dim n As New TreeNode(str) node.Nodes.Add(n) Next End Sub Private Class WorkEventArgValue Public Source As String Public Destination As String Public Include As Boolean Public Method As WorkMethod End Class Private Enum WorkMethod Copy Move Delete End Enum End Class Public Class DirInfo Public Path As String = String .Empty Public FolderName As String = String .Empty Public Directories As New List( Of DirInfo) Public Files As New List( Of String ) Public TotalSubDirectories As Integer = 0 Public TotalSubFiles As Integer = 0 End Class Public Class ProgressUpdateEventArgs Inherits EventArgs Public OperationText As String Public LastFile As String Public PercentProgress As Integer Public Sub New () End Sub Public Sub New ( ByVal opt As String , ByVal file As String , ByVal pct As Integer ) Me .OperationText = opt Me .LastFile = file Me .PercentProgress = pct End Sub End Class Public Class WorkCompleteEventArgs Inherits EventArgs Public ExecutionTime As TimeSpan Public Sub New () End Sub Public Sub New ( ByVal t As TimeSpan) Me .ExecutionTime = t End Sub End Class Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
  - 2
    - Transparent Colors Hello, How can i make a background of a picture transparent i read the thread: http://forums.microsoft.com/MSDN/ShowPost.aspx PostID=441811&SiteID=1 but i didn't understand a thing, could anyone explain How could i paint it in the way they r saying. Thx Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
  - 3
    - Repositioning Controls in a Scrolled View Ahh, awesome. I see what you mean. I'll give it a try and see if I can't make it works. Thank you very much! Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
  - 4
    - TreeView Question Hi, I think you mean two problems : 1. You want to locate to specific node. 2. You want to know the parent node of currently node selected. You can solve the problem by doing following steps: 1. You can set TreeView.SelectedNode Property to locate to specific node. 2. TreeNode has the Parent Property. You can obtain the parent node of currently node selected TreeNode :TreeView.SelectedNode . If you think I misunderstand you. Please tell me. Hope this can help you ! Riquel Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
  - 5
    - Horizontal Scroll Position Changes I have a user control with a Panel. At runtime I add some ListViews to Panel.Controls. (I have to add them in the reverse order that I want them to display. Is this normal ) I add a splitter between each of the ListViews, and all the controls are Dock.Left. After the controls are added, I change the width of the Panel so that it is about twice the width required to display the ListViews. This is so the user can change the width of individual ListViews. The problem I have is that when the form is first opened, the Panel is scrolled such that the last control -- actually the first added but the last in the sense that it is the right-most control -- is visible. If I scroll the panel so that the last control is no longer visible, then cause the form to lose focus, upon regaining focus the panel scrolls so that the last control is once again visible. What I would really like is for the Panel's Horizontal scrollbar to start at it's left-most position, and then stay whereever the user puts it thereafer, even after focus changes for the form. Any assistance would be appreciated. Thanks. Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
  - 6
    - Get print tray media We print most of our documents to plain paper, but have some that must print to perforated paper. We have the bins for the perforated paper set to a type of "pre-punched" to differentiate. (this setting is similar to setting one bin to letterhead). How do I get that media type setting for each tray on a printer so I can tell which tray to print each document to Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
  - 7
    - Data from access database to a String Hmm I wouldn't understand why. You can also refer to it by index, what happens if you refer to it by index can you show the code you are using correctly and the names of the fields you have, exactly as they are (It may well be case sensitive) In addition - can we have the exact error message Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
  - 8
    - Setup and Deployment from Command Line The .net framework lets me compile a project using vbc.exe from the command line. I was wondering if there is a similar utility that can create an MSI from a setup and deployment project using a command line application. Can this be done Thanks! Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
  - 9
    - CliickOnce : Manifest may not be valid I just wanted to let you know that it happened to us on a couple of client computers just today. We solved it following your instructions. We distributed our app via ClickOnce for the last 8 months with no problem (like this) and this is the first new site install of the month. Is it something related to a recent Windows update I find it really hard, to say the least, to have to manually operate on the remote client machines to solve a problem no end-user would be able to approach. This is even more true when you consider we are using ClickOnce to enable distribution to a high number of clients with a nearly zero impact. Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
  - 10
    - Reading from Doc file onto a Reader Hi Vineed, I think the code example in Understanding the Word Object Model from a .NET Developer's Perspective has showed how you can do that, though a little complex. There's an article which shows how you can open a word file and grabs its contents in VB.net. Hope this can help you. Thanks! Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
  - 11
    - Write a program, which verifies that the procedure is properly written Write a procedure that takes an integer value and returns the number with its digit reversed. Write a program, which verifies that the procedure is properly written. Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
  - 12
    - VB Active X DLL fail on 64 bit while we use through VB script Thanks for your reply. However, because of the 32 bitness, it won't work in 64-bit windows 2003 OS then what is WOW for further I read in MS website that there is no 64-bit compiler available for VB. ( http://msdn2.microsoft.com/en-us/library/zwk9h2kb.aspx ) Also, when I create a vb executable, it creates the object without any error, but if I do from a vbs file or as in SQL 2005 SSIS an Active script, it fails to create the object. Any thoughts on how to use the vb6.0 activex dlls in SQL 2005 Integration services as an Active Script thanx Raj Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
  - 13
    - Setting Today's Date by Default in a Function >Any further suggestions Now that you're at the water, drink, drink!! ;-) Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
  - 14
    - DateTimePicker and language my regional settings are english. my .net framework is in french. my windows is in english. but my dateTimePicker is also in french Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
  - 15
    - Get Default Printer In vb.net i want to get the name of the default printer. I have found the following c# code but dont understand c#. Can anyone help me out translating this to vb Many thanks DllImport("winspool.drv", CharSet=CharSet.Auto, SetLastError=true)] public static extern bool GetDefaultPrinter(StringBuilder pszBuffer, ref int size); StringBuilder dp = new StringBuilder(256); int size = dp.Capacity; if (GetDefaultPrinter(dp, ref size)) { Console.WriteLine(String.Format("Printer: {0}, name length {1}", dp.ToString().Trim(), size)); } else { int rc = GetLastError(); Console.WriteLine(String.Format("Failed. Size: {0}, error: {1:X}", size, rc)); } Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
  - 16
    - baby lock And using the in-built stuff is normally much simpler than writing code to "reinvent the wheel" Windows Vista has much more parental controls than XP. So I'd hate to see you spend a lot of time writing something that is already implemented and probably would need modification to work on anything else. Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
- Next
  - 1
    - InnerCastExeption error. Hi! I wrote this code: Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing If txtUserName.Text = "Test" & txtPassword.Text = "Test" Then Me.Close() Else Form2.Show() MsgBox("Wrong username or password." & vbCrLf & "Protection Continued") End If End Sub And when i try to run it (debug) i get InnerCastExeption error. How can i fix this //Greetings, Zeelia Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
  - 2
    - How can I check the Internet connection speed via code? How can I check the connection speed by code. Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
  - 3
    - bitmap to Picturebox throught network I have a System.Drawing.Bitmap and I want to display it to another program's picturebox throught a network (localy or internet). How can I do it Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
  - 4
    - An attempt was made to access a socket in a way forbidden by its access permissions I have the same problem running on W2k3 server Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
  - 5
    - Sound Private Sub Form1_Load( ByVal sender As Object , ByVal e As System.EventArgs) Handles Me .Load AxWindowsMediaPlayer1.Visible = False End Sub Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
  - 6
    - encrypting passwords in a database Hello, I am creating an application using vb windows applcation and using SQL 2005. I have a table of users, that contain there usernames and passwords. When a new user is added it stores all the passwords in clear text in the database. What is the best method to use to be able to crypt the passwords in the database. Also, when the user login, i have a sql statement that will compare the username and password that they enter in the login dialog box, to what is in the database. If the password is encryted, would I still be able to compare their password to see if they can still login. i.e. "Select * From Users Where LoginID=@LoginID And Password=@Password" Many thanks for any suggestions, Steve Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
  - 7
    - Print Preview Error You should be able to set the paper size manually using the PrintDialog control or programmatically using the PaperSize class. Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
  - 8
    - Textbox Focus From Form Load just to add, tried doing this in the form Shown event Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
  - 9
    - What Language represents &H100& Thanks for replying, I'm learning! Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
  - 10
    - newbie call errors Excellent, thanks! Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
  - 11
    - REading emails from exchange 2000 Hi, I have looked everywhere but no luck. I really need to be able to read messages and save attachments from an inbox. I have only managed to open up my own inbox which is no use. Dim oApp As Outlook.Application = New Outlook.Application() Dim oMsg As Outlook.MailItem Dim oAtt As Outlook.Attachment Dim oNS As Outlook.NameSpace = oApp.GetNamespace( "mapi" ) Dim i As Integer Dim x As Integer Dim oInbox As Outlook.MAPIFolder = oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox) Dim oItems As Outlook.Items = oInbox.Items Dim count As Integer = oItems.Count Dim deletefile, savefile As Boolean oNS.Logon( "DevTest" , "password" , False , True ) I was hoping the ons.logon whould log me on to the "devTest" inbox but i guess the Dim oInbox As Outlook.MAPIFolder = oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox) is opening up my own default inbox how can I open up the dev test inbox many thanks Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
  - 12
    - Create Users to Windows 2003 Programatically (vb) Hi all, I'm trying to add users remotely to a Windows 2003 Standard using the command net.exe, but I just can't make it work. This is my code: Dim p As New Process p.StartInfo.UseShellExecute = False p.StartInfo.RedirectStandardError = True p.StartInfo.RedirectStandardInput = True p.StartInfo.RedirectStandardOutput = True p.StartInfo.WindowStyle = ProcessWindowStyle.Hidden p.StartInfo.Arguments = " user " & xUser & " " & xPass & " /ADD /ACTIVE:YES /EXPIRES:NEVER" p.StartInfo.WorkingDirectory = "C:\windows\system32" p.StartInfo.FileName = "net" p.Start() Dim sr As IO.StreamReader = p.StandardOutput Dim sb As New System.Text.StringBuilder( "" ) Dim sinput As String = "" Do Until sinput = "-1" sb.Append(sr.ReadLine() & ControlChars.CrLf) sinput = sr.Read Loop p.WaitForExit() p.Close() Return sb.ToString it doesn't return anything, and user is not created. If I change the following line, it returns perfectly the table of users: p.StartInfo.Arguments = " users" so what could the problem be Thanks in advance. George Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
  - 13
    - how do i populate a checklistbox from a database in MSSQL server? I see you have some VB6 or lower background. Lots of old school techniques..... Great commenting.... Your loading the CLB from the one of the arrays XYG2, AWS, JBY after a click on the control. (I cann't find where you are loading the CLB at load.) I quickly scan the code so I could have missed it. If I just missed the load procedure then run your app and check the arrays to see if your convertion from data set to array is correct. When debuging does the arrays have data As I could not find the CLB in form load I don't know witch array or dataset your starting with... If thier isn't some thing I'm missing the CLB doesn't load data until some data in it is click so it will never show anything... Sorry for the quick scan if I did miss where your loading the CDL when the form opens or user does some thing then please post just it and i'll see if I can help more. Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
  - 14
    - Interface - Collection of Interfaces? I found the answer...... Code Snippet Interface IContact Inherits ISQL, IAddress Property FirstName() As String Property LastName() As String Property MiddleInitial() As String Property JobTitle() As String Property DefaultEmail() As Integer Property DefaultPhone() As Integer Property Emails() As GenericCollection( Of IEmail) Property Phones() As GenericCollection( Of IPhone) End Interface And then make sure you declare the Property as Friend or any other project only access Code Snippet Friend Property Emails() As GenericCollection( Of IEmail) Implements IContact.Emails Get Return _Emails End Get Set ( ByVal value As GenericCollection( Of IEmail)) _Emails = value End Set End Property *GenericCollection is a CollectionBase derived Collection (which also has an interface) I can now add Interfaces to a collection and pull them out, nearly effortless What are the potential limitations/problems of this I haven't run across anything yet, but would like to know what could possibly happen. As long as I can still use the interface down the road should I decide to change something! Am I getting Interface happy Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
  - 15
    - best practice when writing to sql server It depends - how often will you be accessing the Database If you are constantly accessing it, then there's little point in closing the connection after each write (that would be like going to the store, buying bread, going home; back to store, buy milk, go home; buy eggs, go to store, go home....). If it's every few minutes, then you may want to think about closing it (I'd keep the connection open but that's because of the nature of my applications that run 24-7). Some database managers get their knickers in a twist if you maintain a connection ad-infinitum, however. (I've only had connection/timeout issues with MS databases when I've held the connection open for more than several hours without doing anything with it - other databases seem to be a bit less tolerant). A good compromise will be to have your application have its own timeout, so that if no transactions have ocurred in a certain time period (e.g. 1 minute, 10 minutes, 1 hour, whatever is appropriate), disconnect nicely. This is easy to do if you encapsulate your database functionality. Then when a transaction is required, reconnect nicely. Which ever way you go - correct error handling will make your life much easier. Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET
  - 16
    - Read Data from Card Reader Hi HenryHan, Sometimes if you have a drive mapped, say as the E:\ drive, and you attach a card reader or a USB flash stick it also maps to drive letter. So you end up with it looking like the reader hasn't attached. If you attach the card, give it time to connect and then go Control Panel->Admin Tools->Computer Management->Disk Management, you might see the card reader listed in there. You need to change the drive letter, right click on the drive listed on the bottom panel and select the change name menu option. These card reader generally are available as drives so reading and writing to them is like accessing files on a drive. There isn't any support for USB access in .NET, so you might need to look for third party controls, and if that is the case then I have no idea mate. Everything on USB that I've done has been just accessing the reader / flash stick as a drive. Tag: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET

Srinivas Allamkam

Hi all,

Could any one please tell what is the equivanet function of the TwipsToPixelsY, TwipsToPixelsX functions in VB.NET. These are supported by vb6 namespace if we use in .NET but i should not use VB6 in my project So please guide me what are the equivalents to these functions

Regards,

Top

Re: TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET

JohnWein

They are VB6 functions. Why not use VB6 namespace

Anyway:

Code Block

Public Class Form1

Dim G As Graphics = Me.CreateGraphics

Dim TwipsToPixelsX As Integer = CInt(1440 / G.DpiX)

Dim TwipsToPixelsY As Integer = CInt(1440 / G.DpiY)

End Class

The math should probably be done in a function and the graphics disposed, but this form doesn't seem to cause any problems.

Top