Controls Transparency

Visual Basic General

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

- Previous
  - 1
    - How can I check the Internet connection speed via code? How can I check the connection speed by code. Tag: Controls Transparency
  - 2
    - 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: Controls Transparency
  - 3
    - 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: Controls Transparency
  - 4
    - Sound Private Sub Form1_Load( ByVal sender As Object , ByVal e As System.EventArgs) Handles Me .Load AxWindowsMediaPlayer1.Visible = False End Sub Tag: Controls Transparency
  - 5
    - 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: Controls Transparency
  - 6
    - Print Preview Error You should be able to set the paper size manually using the PrintDialog control or programmatically using the PaperSize class. Tag: Controls Transparency
  - 7
    - Textbox Focus From Form Load just to add, tried doing this in the form Shown event Tag: Controls Transparency
  - 8
    - What Language represents &H100& Thanks for replying, I'm learning! Tag: Controls Transparency
  - 9
    - newbie call errors Excellent, thanks! Tag: Controls Transparency
  - 10
    - 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: Controls Transparency
  - 11
    - 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: Controls Transparency
  - 12
    - 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: Controls Transparency
  - 13
    - 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: Controls Transparency
  - 14
    - 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: Controls Transparency
  - 15
    - 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: Controls Transparency
  - 16
    - IP Address textbox The real easy way. Use the Masked Text Box control with this mask property ###.###.###.### and use the Validation event to confirm that the value entered is a valid IP address. Tag: Controls Transparency
- Next
  - 1
    - metadata help does anyone know how i would go about editing metadata of a video like changing the artist Tag: Controls Transparency
  - 2
    - How do you add a pause with the Timer control? How about using two timers? Sorry, that doesn't help. I need something as simple as the code I posted above. It needs to be placed in the button click event, and it will be repeated dozens of times for split seconds each time as the textbox keeps refreshing. Other pauses with varying times (fractions of a second) will also be used in the same event to separate each of 8 textboxes, (which I set up as an array of textboxes in a separate sub). As you can see, every statement using System.Threading.Thread.Sleep should be replaced with a pause using a Timer instruction, but as simply and clearly as possible! Here is part of the actual code I'm using now. It works perfectly except that the user cannot interrupt the process to select another event. Private Sub btnNext_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click Dim winner, L, idig, Q, R As Integer Dim swin, dig As String ' ' ' Note: Some code omited here -- Some variables were declared at class-level winner = shuffle(win) swin = winner.ToString L = N - swin.Length swin = StrDup(L, "0" ) & swin win = win + 1 If flash = False Then 'show winning number instantly ' ' ' Code omitted since it doesn't use a pause Else If win = 1 Then lblWait.Text = "Always wait for flash to stop before clicking Next or another button." lblWait.Refresh() System.Threading.Thread.Sleep(100) End If For x As Integer = 1 To 8 'clear previous winning number TextArray(x).Clear() TextArray(x).Refresh() Next x System.Threading.Thread.Sleep(200) 'pause before next number lblIndex.ForeColor = Color.FromArgb(130, 130, 130) lblIndex.Text = win.ToString 'winner count in gray lblIndex.Refresh() Q = N If P > 0 Then 'don't flip inactive digits For x As Integer = N To N - P Step -1 dig = swin.Substring((N - x), 1) TextArray(x).ForeColor = Color.FromArgb(120, 120, 120) TextArray(x).Text = dig TextArray(x).Refresh() System.Threading.Thread.Sleep(200) Q = N - P 'active digits Next x End If For x As Integer = Q To 1 Step -1 'flip winning number digits dig = swin.Substring(N - x, 1) idig = Convert.ToInt32(dig) For y As Integer = 0 To 9 'first flip from 0 to 9 TextArray(x).ForeColor = Color.Black TextArray(x).Text = y.ToString TextArray(x).Refresh() System.Threading.Thread.Sleep(90) Next For y As Integer = 0 To idig 'then flip from 0 to value TextArray(x).Text = y.ToString TextArray(x).Refresh() System.Threading.Thread.Sleep(90) Next y System.Threading.Thread.Sleep(90) Next x lblIndex.ForeColor = Color.Black 'winner count in black after flip finishes lblIndex.Refresh() For y As Integer = 1 To 7 'flash winning number in gold If y Mod 2 = 0 Then R = N Else R = Q For x As Integer = 1 To R 'alternate active with all digits TextArray(x).BackColor = Color.Gold Next x For x As Integer = 1 To N TextArray(x).Refresh() Next x System.Threading.Thread.Sleep(200) For x As Integer = 1 To N 'original color TextArray(x).BackColor = Color.FromArgb(255, 255, 192) Next x For x As Integer = 1 To N TextArray(x).Refresh() Next x System.Threading.Thread.Sleep(90) Next y lblWait.Text = "" End If End Sub Tag: Controls Transparency
  - 3
    - Answer command prompt programmatically I am trying to answer a prompt in the command prompt window programmatically so the user does not see the prompt nor have to interact with it. I have tried ECHO, but it does not put the text after the prompt. Also, how do you add the text and continue -- that is, simulate pressing the ENTER key I am totally new to this, so any ideas will help. Thanks! Sample: ECHO [text to send] Tag: Controls Transparency
  - 4
    - creating file name with date I'm using excel 2003 with VB 6.3 I am writing a macro to move some data around and do some subtotalling; I would the macro to save the file as nameispecify with the current date lpantos02012007.xls without me specifiying the date is there a way to do this Thanks! Tag: Controls Transparency
  - 5
    - Find all PCs in a network You could use a batch command to read out the net view info from your network and then import this information into your program: Code Snippet 'Read out the net view information and store it to C:\Temp.txt 'AppWinStyle.Hide hides the commandline window 'True waits for the net view command to finish before continueing Shell( "cmd.exe /c net view>C:\Temp.txt" , AppWinStyle.Hide, True ) 'The command above will write something like this in the text file: ' 'Server Name Remark ' '------------------------------------------------------------------------------- '\\ADFLAP002 John Doe1 '\\AMSLAP006 John Doe2 '... 'Here we read out the computer names from the Temp.txt file Dim ReadFile As New IO.StreamReader( "C:\Temp.txt" ) 'loop until the end of the file is reached Do Until ReadFile.EndOfStream = True 'Store the information from the currentline Dim CurrentLine = ReadFile.ReadLine 'Only read out the computername if the line starts with '\\' If (Mid(CurrentLine, 1, 2) = "\\" ) Then 'Read out the line from the 1st character to the first space and remove the '\\' '(this is the computer name) 'write the computer name to the debug (Immediate) window Debug.Print(Replace(Mid(CurrentLine, 1, InStr(CurrentLine, " " )), "\\" , "" )) 'InStr(CurrentLine, " ") => gets the location of the 1st space 'Mid(CurrentLine, 1, InStr(CurrentLine, " ")) => takes the string appart starting from 1 to the 1st space End If Loop ReadFile.Close() I hope this helps! Greets, Stitch Tag: Controls Transparency
  - 6
    - How to get domain Thanks for you help, but I found better solution for me: Dim objSearcher As New ManagementObjectSearcher( "SELECT * FROM Win32_NTDomain" ) Dim objDomain As ManagementObject For Each objDomain In objSearcher.Get() MsgBox( "Domain = " & objDomain( "Name" ).ToString()) Next objDomain this returns me exactly what I want. BIOS names of domains. Then I select groups from Win32_Group where domain = .... Tag: Controls Transparency
  - 7
    - PowerPoint event updating form Hi, I have a class that holds a reference to PowerPoint and captures the WindowChangeEvent. When that event happens that class in turn raises my own custom event to a form. The form has a reference to the class but not a direct reference to PowerPoint. When the form receives the custom event all it needs to do is clear a listbox. I know that the PowerPoint WindowSelectionChange event is being captured and in turn is raising the custom event, however the listbox.items.clear method causes strange behaviour - the listbox isn't cleared, the application doesn't crash, it just doesn't execute that command and exits the sub...so nothing happens. Is my approach causing the problem whereby a class capturing the PowerPoint event in turn raises an event on a form Thanks Tag: Controls Transparency
  - 8
    - upgraded os, now can not find .dll It may run. It's not a driver. But here's the thing. win/95 and win 98 had a very different kernel than does XP. Also the the file structure was really different meaning where user files are kept,etc. What I responded to was that you said it had to be written to go from win95 to win98. Today's operating systems are much more different than was the transistion to Win98. Tag: Controls Transparency
  - 9
    - DataSet you still would to free up memory. Any variables you create or object will always be in memory and consume resources until you dispose of the object, if it implements the IDisposible interface. What you are referring to is scope Tag: Controls Transparency
  - 10
    - New Project dialog box has no Database option Product Version Feature Comparison http://msdn2.microsoft.com/en-us/library/b4z62wxz(VS.80).aspx looks like SQL Server Project is not available in Standard edition Tag: Controls Transparency
  - 11
    - accessing config setting from other programs Can you difine your shared defaults in a module that is solution global This would allow each program to access the defaults as needed. Tag: Controls Transparency
  - 12
    - Abstract/Generic Enumerations? Hi MattDe_MS, Would you do this with the VARIANT datatype or a combination of them Regards, S_DS Tag: Controls Transparency
  - 13
    - tooltips in subItems of Listview control. In ListView Control SP6.0 (with Visual Basic 6.0) can set Tooltip in SubItems. How can I have the same functionality with ListView Control Net Tag: Controls Transparency
  - 14
    - Pass data between two threads Hi, I reckon you could add another MODULE with some PUBLIC variables to pass your data between the threads. You can use the same technique to pass data between FORMs too. E.G. Code Snippet Module myVariables Public aString As String Public anInteger As Integer End Module Then use those variables ( as many as you like ) to pass data between the threads. Code Snippet Public Class frmMain Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim MyThread As New System.Threading.Thread( AddressOf NewsFeed.FeedMatch) MyThread.Start() anInteger = 7 End Sub End Class Code Snippet Module NewsFeed Public Sub Status( ByVal ison As Boolean , ByVal islemtipi As String , ByVal item As String , ByVal lastindex As String ) End Sub Public Sub FeedMatch() anInteger = 14 End Sub End Module Regards, John Tag: Controls Transparency
  - 15
    - Custom HTML phrasing actually a better option would be to use server side scripting to detect the users browser rather than using a custom tag that only my browser can understand, because the goal was to have a tag exactly like the iframe except only my browser would recognize it and display the iframe, so i could have content on my site exclusive to those who use my browser. But then the question is wouldn't the site detect ie as my browser, how do i get it to differentiate between ie and my browser Tag: Controls Transparency
  - 16
    - 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: Controls Transparency

Nayan Paregi

My purpose is to display rotated text or image on the running movie. For that I have used windows media player control in .net.

I add the AxWindowsMediaPlayer (Windows Media player Control) on my form and set dock properties to fill. And put the Label and set the BackColor to Transparent. But instead of displaying the movie as background its displays the BackColor of the form.

I want the background movie run in background and display the rotated text amd image on that without background color of the text and image.

Thanks in advance.

Re: Controls Transparency

Dave299

Normally you would set the label's parent property to the control which you wish to appear as its background.

However that doesn't work when you try it with media player.

So unless anyone has better ideas I think the answer is you can't do what you are trying to do.

Re: Controls Transparency

Spidermans_DarkSide

Hi,

You may need to force you rotating item "ON TOP" through calling one of the windows DLL functions as per an API call.

Alternatively try putting it on the media player window area that it not showing the video content.

Regards,

S_DS