Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. uberpudge

    My Theme/Skin file is not being applied to controls

    I've tried the "styleSheetTheme" vs. "Theme" with no success. After a review of the output of the page with the CSSFriendlyAdapters.browser file excluded from the project contrasted to output of the page with the CSSFriendlyAdapters.browser file included with the project, I can only conclude...
  2. uberpudge

    My Theme/Skin file is not being applied to controls

    I forgot to mention that I am using the "ASP.NET 2.0 CSS Friendly Control Adapters 1.0" as well, which as it turns out is the cause of all of this malarkey. I excluded the "CSSFriendlyAdapters.browser" file from the project (to temporarily disable the CSS Friendly rendering) to debug a CSS...
  3. uberpudge

    My Theme/Skin file is not being applied to controls

    I am tinkering with Themes for the first time. I am designing in Visual Web Developer Express Edition 2005. I am running this on Vista Home Premium. I am deploying on the same box which is running IIS7 and has the following options installed: --IIS 6 Management Compatibility (All options...
  4. uberpudge

    More Efficient Method to format a date?

    Hello Binnit! Assuming you really need a formula in Cells J1:M1, change the last line of your posted code to the following: ActiveCell.Value = "=CONCATENATE(L3," & Chr(34) & "/" & Chr(34) & ",K3," & Chr(34) & "/" & Chr(34) & ",J3)" 'Chr(34) makes a " character so you can properly concatenate...
  5. uberpudge

    VBA testplan loop advice needed

    Hello Knifey, I'd use the .Offset function of the Range object. Assuming you're looping through A1:Z1 with a range object, i.e: For Eeach rngTest in Sheet1.Range("A1:Z1") 'Test here. Next rngTest You could add an offset like this: lngOffset = 1 For Eeach rngTest in Sheet1.Range("A1:Z1")...
  6. uberpudge

    How can I not print formulated text, see what I mean

    Hello Tony, Have you tried intercepting the "BeforePrint" event? Example: Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim strFormula As String strFormula = Range("N6").Formula Range("N6").ClearContents Sheet1.PrintOut...
  7. uberpudge

    Splash and MDI

    Hello OOzy, Try adding a Timer control to the splash screen and set the Interval property for the number of milliseconds to display the form (number of seconds * 1000). In the handler for the Timer event, hide and then unload the splash screen. For example: Private Sub Timer1_Timer()...
  8. uberpudge

    Simple "Until EOF" procedure??

    Hello Sagain2k, The Interaction collection contains and EOF function. Here's an excerpt from the help file: EOF Function ------------- Returns an Integer containing the Boolean value True when the end of a file opened for Random or sequential Input has been reached. Syntax EOF(filenumber)...
  9. uberpudge

    Excel Window Size

    Hello StevePB, If you want the userform to fill the screen (hiding the userform) try the adding the following in the UserForm code section: Private Sub UserForm_Activate() SetUserFormSize End Sub Private Sub UserForm_Initialize() SetUserFormSize End Sub Private Sub UserForm_Resize()...
  10. uberpudge

    Inputbox - Excel 2000 - Dates

    Hello Nick, Maybe my thinking is backwards here, but have you tried reformatting the string to your needs once it has been input? Try this function: Public Function ConvertToDMY(ByRef strChosenDate As String, Optional ByRef strDelimiter As String) Dim strDay, strMonth, strYear As String...
  11. uberpudge

    Use VBA to set print to fit page size - Help Please.

    Hello William! Try using this before you print: ActiveSheet.PageSetup.FitToPagesWide = 1 ActiveSheet.PageSetup.FitToPagesTall = 1 Hope this helps, Pete
  12. uberpudge

    Excel Window Size

    Hello StevePB! Application.WindowState will set the window state for the whole application (Excel in this case). Try using this instead: ActiveWindow.WindowState = xlMinimized This way only the active window is affected. If you have mulitple windows open and you want to minimize them...
  13. uberpudge

    OnTime statement problems

    Hello LSIGuy, When I use OnTime and it cannot find the macro I want to run (Sub or Function - it doesn't matter, you can run both with OnTime), all I usually have to do is fully qualify the reference to the Sub or Function. For example: Application.OnTime Now + TimeValue("00:30:00")...
  14. uberpudge

    vba in vb application

    Hello Xian, As long as you make your your VB project includes a reference to the Microsoft Excel Object Library (Project -> References ->[Scroll down and place a checkmark to Microsoft Excel {Version Number} Object Library]), you should be able to use the VBA Code with the Excel sheet. Hope...
  15. uberpudge

    Type Mismatch Error 13 calling a procedure in Userform1

    Hello JazzyLee, Perhaps posting the code which gives the Error 13: Type Mismatch would help us help you better. Also, have you tried using: Load UserForm1 instead of: Call UserForm1.UserForm_Initalize Normally, event handlers are declared as Private and calling them from other modules...
  16. uberpudge

    Spliting a text file

    Hello Simon, As I don't know what the following are: m_InitHex InitHex FillMemory I don't know if it suits your purpose. If you want a string representation of hex values from the array that my function above returns, feel free to use this: Public Function ConvertToHex(ByVal varPassed As...
  17. uberpudge

    Spliting a text file

    Hello Simon, The "Byte" data type is a number ranging from 0 - 255. 8-bit ASCII is a number ranging from 0 to 255. Given that each character in the string is really an 8-bit ASCII value, I'm not really sure there's any need for modification to the above routine. For example, the...
  18. uberpudge

    Spliting a text file

    Hello Simon, This seems to work. Just pass it your string and it'll return an array. Public Function SplitString(ByVal strToSplit As String) Dim strArray() As String Dim lngStrLen As Long Dim lngElements As Long Dim lngIndex As Long strLen = Strings.Len(strToSplit)...
  19. uberpudge

    I have a question related to a previous post about TRIM()

    Hello Tony, I noticed a few problems in the example you are having trouble with. Try this and let us know how it works: Sub TrimColumn() Dim varCol As Variant Dim rngColumnToTrim As Range Dim rngCell As Range 'Get input from the user as the column to trim. varCol =...
  20. uberpudge

    Disable UNC reference in VBA project

    Hello Tomxyz, Perhaps some sample code would be in order, to see how your code is referencing the UNC? This would help greatly. Hope this helps, Pete

Part and Inventory Search

Back
Top