Dienst beenden/staren

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ VB
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
  - 1
    - Datagridview sort resets my formatting Hello, I'm trying to figure out how to keep my cell formatting the same even after I've clicked a column sort header. Basically I've programmatically changed forecolors and backcolors of several different cells in my datagridview. When I the click the sort header it resorts the data but all my color formatting is lost. Is there a way to not lose all this formatting when I sort? Thanks in advance for any help you can provide, Ben Tag: Dienst beenden/staren Tag: 414927
  - 2
    - How to show disk space of a specific computer on the network Input: A computer name on the internal network Out: Disk space total and remaining on all drives. Tag: Dienst beenden/staren Tag: 414925
  - 3
    - damen hose bestellen mode damenbekleidung bestellen groessentabelle damen hose bestellen mode damenbekleidung bestellen groessentabelle damenbekleidung bestellen shop damenkleidung kaufen + + + +++ DAMENKLEIDUNG KAUFEN +++ DAMENKLEIDUNG ONLINE BESTELLEN +++ + http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO + + + +++ MAENNERKLEIDUNG KAUFEN +++ MAENNERKLEIDUNG ONLINE BESTELLEN +++ + http://WWW.MAENNERKLEIDUNG-KAUFEN-24.INFO http://WWW.MAENNERKLEIDUNG-KAUFEN-24.INFO http://WWW.MAENNERKLEIDUNG-KAUFEN-24.INFO http://WWW.MAENNERKLEIDUNG-KAUFEN-24.INFO http://WWW.MAENNERKLEIDUNG-KAUFEN-24.INFO http://WWW.MAENNERKLEIDUNG-KAUFEN-24.INFO + + + + +++ UEBERGROESSEN KAUFEN +++ UEBERGROESSEN ONLINE BESTELLEN +++ + http://WWW.UEBERGROESSEN-KAUFEN-24.INFO http://WWW.UEBERGROESSEN-KAUFEN-24.INFO http://WWW.UEBERGROESSEN-KAUFEN-24.INFO http://WWW.UEBERGROESSEN-KAUFEN-24.INFO http://WWW.UEBERGROESSEN-KAUFEN-24.INFO http://WWW.UEBERGROESSEN-KAUFEN-24.INFO + + + damenmode bestellen www damenkleidung kaufen in damenkleidung kaufen damenmode bestellen www damenbekleidung bestellen damenbekleidung bestellen hamburg Tag: Dienst beenden/staren Tag: 414919
  - 4
    - Question about Windows Service and Setup projects I am reviewing Windows service programming. I'm running VS2005 and programming in VB. I've just found an example in Support: 'How to create a Setup project for a Windows Service in Visual Basic .NET or in Visual Basic 2005' http://support.microsoft.com/kb/317421 I've been able to program and run this example without problems. However, I wonder if I'm missing the point here. How do you deploy a service like this to a machine without Visual Studio installed? (Admittedly I have little experience writing setup projects either.) Tag: Dienst beenden/staren Tag: 414911
  - 5
    - Flicker when updating Listbox I have a program that displays constantly changing prices which it sources from the web once per second. The prices are displayed on a Listbox (not the best choice but there are good reasons for this). The Listbox flickers when updating and I can't find a solution on the net. Here is the code: 'update Listbox listPrices.SuspendLayout() For n = 1 To 20 LineStr = Space(16) Mid(LineStr, 1, 10) = PriceData(n).ItemID Mid(LineStr, 13, 4) = PriceData(n).ItemPrice listPrices.Items(n - 1) = LineStr 'the fault is probably here Next n listPrices.ResumeLayout() I'm using VB 2005 Express. Someone with a similar problem was advised to use SuspendLayout and ResumeLayout and, as you can see, I tried that but it didn't help. Any ideas? Tag: Dienst beenden/staren Tag: 414907
  - 6
    - Ribbonbar Question Not sure if this is the correct forum. Writting a ribbonbar addin in vb2008 to change the background of an indivdual slide. This program does it for all slides How come? On Error GoTo NoBackgroundFound Dim ActWinSlideRange As Microsoft.Office.Interop.PowerPoint.SlideRange Dim ActWinSlidePresentation As Microsoft.Office.Interop.PowerPoint.Presentation ActWinSlideRange = PowerPointAddIn1.Globals.Ribbon2008.Application.ActiveWindow.Presentation.Slides.Range() ActWinSlidePresentation = PowerPointAddIn1.Globals.Ribbon2008.Application.ActiveWindow.Presentation With ActWinSlideRange .FollowMasterBackground = Microsoft.Office.Core.MsoTriState.msoFalse .DisplayMasterShapes = Microsoft.Office.Core.MsoTriState.msoTrue With .Background .Fill.Visible = Microsoft.Office.Core.MsoTriState.msoTrue .Fill.ForeColor.RGB = RGB(255, 255, 255) .Fill.BackColor.SchemeColor = PowerPoint.PpColorSchemeIndex.ppShadow .Fill.Transparency = 0.0# If InStr(ActWinSlidePresentation.Name, ".pptm") > 0 Then .Fill.UserPicture("C:\My Documents\Powerpoint\Background\" & Replace(ActWinSlidePresentation.Name, ".pptm", "") & "\Ultra Background Slide.jpg") Else .Fill.UserPicture("C:\My Documents\Powerpoint\Background\" & Replace(ActWinSlidePresentation.Name, ".ppt", "") & "\Ultra Background Slide.jpg") End If End With End With Exit Sub NoBackgroundFound: MsgBox("No Background Found") End Sub Tag: Dienst beenden/staren Tag: 414899
  - 7
    - Timer in module Hi How can I use a timer in a module such that I can start the timer and then trap when timer has reached the interval? Many Thanks Regards Tag: Dienst beenden/staren Tag: 414894
  - 8
    - Problem with casting Hi, We have an very strange error and i though you can help us to understand what is happening. First we have an interface defined as: ---code-begins Public Interface ILessonReadersDAO <... properties and methods here ...> End Interface ---code-ends Then we have different objects who implement that interface, and some classes who use that interfaces... particulary we have one method in one class defined as: ---code-begins Public Shared Function GenerateContentTemplate(ByVal lessionId As Long, ByVal sectionId As Long, ByVal slideId As Long, ByVal access As ILessonReadersDAO) As StringTemplate ---code-ends Now... the problem is with this code: ---code-begins Dim access As ILessonReadersDAO = new LessonReadersADO() Dim sTemplate As StringTemplate = LessonContentBuilder.GenerateContentTemplate(LessonId, SectionId, SlideId, access) ---code-ends This code compiles ok but from time to time we get the following message: Option Strict On disallows implicit conversions from 'Lesson.ILessonReadersDAO' to 'Lesson.ILessonReadersDAO'. If we recompile it works, just happens from time to time. The VS IDE give us a hint to change 'access' to CType(access, ILessonReadersDAO), we changed it: ---code-begins Dim sTemplate As StringTemplate = LessonContentBuilder.GenerateContentTemplate(LessonId, SectionId, SlideId, access) ---code-ends and we still have the same problem. I don't know if somebody has the same problem or knows what is happening here. We use .Net 2.0, VS 2005, the solution has C# and VB.Net projecs. Regards, Edgar Zavala. Tag: Dienst beenden/staren Tag: 414891
  - 9
    - Export to Excel truncates numbers Hi and TIA! I'm exporting a dataset/datgrid to excel but some text fields get converted to numbers in excel and I loose leading zero's. I've tried several methods with no success. If anyone has come across this and can point me in the right direction I would appreciate it. Thanks! -- ****************** Reggie Tag: Dienst beenden/staren Tag: 414889
  - 10
    - How to unit test a Dataset? Hi. I have written unit tests for my helper classes that return simple values as strings or integers. Now I need to test the methods that deal with DataSets and DataTables. Is there any special issues when running these kind of tests? I ask this because if I create a DataSet from scratch reproducing the desired structure and compare this to the real DataSet I got from running my helper class, the Assert.AreEqual method says me they are not equal! But both DataSets have the same tables, columns and number of records. Any help would be greatly appreciated ! Regards, RBScheer Tag: Dienst beenden/staren Tag: 414886
  - 11
    - Currency manager changes position on endedit Hi I have a winform app with fields bound to a backbend db via a currency manager (System.Windows.Forms.CurrencyManager). The app generally works fine but in a specific instance where I select a value from a drop down control and then call the MyCurrencyManager.EndCurrentEdit(), to begin to try to save the record, the position of the currency manger becomes -1 which creates problem in saving and accessing the original record. What could be the problem and how can I debug this? Many Thanks Regards Tag: Dienst beenden/staren Tag: 414885
  - 12
    - .NET/ODBC queries Via the Internet Hi I need to add a web interface to my VB.NET application At the moment I use standard ODBC .NET driver but now I need to install the program for someone who is offsite and can connect only via the internet. What is the method that's used generally (encryption is not necessary) Thank you, Samuel Tag: Dienst beenden/staren Tag: 414881
  - 13
    - Why [Enum]? If square brackets in VB .NET are to alert the compiler that we are using a word as an identifier that happens to be the same name as a reserved word, as in: Dim [Exit] As Integer Then, why must I access the shared GetNames() method of an Enum with [Enum], since Enum is the actual type's name and GetName() is a shared method of the type? -Scott Tag: Dienst beenden/staren Tag: 414880
  - 14
    - http://WWW.UEBERGROESSEN-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.UEBERGROESSEN-KAUFEN-24.INFO http://WWW.UEBERGROESSEN-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.UEBERGROESSEN-KAUFEN-24.INFO + + + +++ DAMENKLEIDUNG KAUFEN +++ DAMENKLEIDUNG ONLINE BESTELLEN +++ + http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO + + + +++ DAMENKLEIDUNG KAUFEN +++ DAMENKLEIDUNG ONLINE BESTELLEN +++ + http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO + + + + +++ UEBERGROESSEN KAUFEN +++ UEBERGROESSEN ONLINE BESTELLEN +++ + http://WWW.UEBERGROESSEN-KAUFEN-24.INFO http://WWW.UEBERGROESSEN-KAUFEN-24.INFO http://WWW.UEBERGROESSEN-KAUFEN-24.INFO http://WWW.UEBERGROESSEN-KAUFEN-24.INFO http://WWW.UEBERGROESSEN-KAUFEN-24.INFO http://WWW.UEBERGROESSEN-KAUFEN-24.INFO + + + http://ibm-news.for-um.de/showthread.php?t=11785 http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO + +++ DAMENKLEIDUNG KAUFEN +++ DAMENKLEIDUNG ONLINE BESTELLEN +++ http://WWW.UEBERGROESSEN-KAUFEN-24.INFO + + http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO + http://WWW.UEBERGROESSEN-KAUFEN-24.INFO + + +++ DAMENKLEIDUNG KAUFEN +++ DAMENKLEIDUNG ONLINE BESTELLEN +++ +++ DAMENKLEIDUNG KAUFEN +++ DAMENKLEIDUNG ONLINE BESTELLEN +++ http://WWW.UEBERGROESSEN-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO + http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.UEBERGROESSEN-KAUFEN-24.INFO + http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.UEBERGROESSEN-KAUFEN-24.INFO + http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO +++ UEBERGROESSEN KAUFEN +++ UEBERGROESSEN ONLINE BESTELLEN +++ http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO + http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO http://WWW.UEBERGROESSEN-KAUFEN-24.INFO Tag: Dienst beenden/staren Tag: 414879
  - 15
    - Pausing a process without holding OS Hi I need to add pauses in-between processes in my app to give time to other users/processes on the network. Is there a way to pass control to OS for a specified time (say 15 seconds) to delay my app but at the same time not blocking OS's processor cycles? Thanks Regards Tag: Dienst beenden/staren Tag: 414877
  - 16
    - Off Topic Post - Reporting Services Question Hi Guys, I know this is off topic, so please bear with me on this. The reporting services newsgroup is not really being used, so I thought I would try this group on the offchance somone might be able to help, if not then so be it. I am trying to create an invoice report. Essentially, there are two datasets in use, the invoice set itself, with the main fields such as invoice number, invoice items etc and the dsCustomer which contains the customer addresses. I have the invoice details fine, but I want to be able to extract the customer address details from the dsCustomer for each invoice in the invoiceDetaisl Data Region and I cant work out how to do this. How can I fill/filter/lookup List 1's fields based on the customerID in List 2. Yeah, I could make one huge Datasetwith all the details repeated a billion times, but there has to be an intelligent way to do this. Am I just making life difficult for myself ? A different approach ? Any help is appreciated ! - Thanks [***************** List1 - dsCustomer *******************] [ CustomerID [ CustomerAddress [******************************************************] [**************** List2 - dsInvoice ************************] [ CustomerID [ InvoiceNumber [ Invoice Date [ [ *************** List 3 Invoice Details ************ [ [*******************************************************] Tag: Dienst beenden/staren Tag: 414874
  - 17
    - Slightly OT - drawing I am writing a simple program to draw diagrams. I plan to store the coordinates of each item (initially all straight lines) in a file so that I can recreate and edit the drawing later. I assume there are already file structures defined for such things. Can anyone point me at some please? Thanks Tag: Dienst beenden/staren Tag: 414871
  - 18
    - How to charge money for your application I want to sell a VB application I am making. I want to be able to publish it using the Visual Studio publish tool. and I want to charge money for the application. How do I charge for it, is there a standard way of doing this? Tag: Dienst beenden/staren Tag: 414865
  - 19
    - Routine cannot contain an On Error and lamda or query expression. Huh??? I tried to put an "on error" statement in a routine and got the message that I cannot user "on error" and a lamda or query expression in the same routine. Help does not list anything useful for explaining a "lamda" expression and so I don't know what one is and I am not doing any database stuff in the entire program. So what does this error message really mean and what can I do to get an On Error into the routine? NO, DON'T tell me to use Try/Catch because it is an incomplete implementation that does not allow control to get back to the failing line of code after attempting a fixup of the problem. Mike Here is the rather long routine that gets the error, just in case someone wants to look at it. It was written when I was just learning VB9 and is certainly set up from the perspective of a long-time VB6 coder. There are fixups to be made, for sure to modernize it. Just have not had the time to implement them as of yet. Mostly, I want to get rid of the old WinSock ActiveX control for UDP data retrieval but have not figured out how as of yet. Possibly an answer is already present in another thread. -------------------------------------------------------------------- Private Sub wsInverter_DataArrival(ByVal eventSender As System.Object, ByVal eventArgs As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles wsInverter.DataArrival Dim iNewFace As Short Dim sLittleEndian As String Dim sBigEndian As String Dim i As Integer Dim iState As Integer Dim iFault2 As Integer Dim fCTemp As Decimal Dim fFTemp As Decimal Dim s As String 'Dim sFixed As String Dim lUniqueReturn As Integer Dim cDCVolts As Decimal Dim cACAmps As Decimal Dim cACPower As Decimal Static lPrevAmbient As Integer = -300 Dim Bytes() As Byte 'objData = Nothing ' This line is just to make the error lister happy. It can be removed but a warning will appear. Bytes = Nothing wsInverter.GetData(Bytes) lblPktStatus.Text = "OK (RTT: " & Format(GetTickCount - glRTT, "###,##0") & " ms.)" 'Move the next sample to the 30 second mark to get 1 response per each unique minute all day (most probably) Select Case Second(Now) Case 0 To 28 Timer1.Interval = 60000 + (30 - Second(Now)) * 1000 Case 29 Timer1.Interval = 60300 Case 30 Timer1.Interval = 60000 Case 31 Timer1.Interval = 59600 Case 32 To 59 Timer1.Interval = 60000 + (30 - Second(Now)) * 1000 End Select Timer1.Enabled = False Timer1.Enabled = True lblPktRecvTime.Text = CStr(TimeOfDay) sLittleEndian = MakeString(Bytes) 'Debug.Print(Asc(objData.ToString(1))) sBigEndian = "" 'sFixed = "Big Endian : " 'The only difference between sFixed and sBigEndian is that sFixed has a space every word (4 hex digits) for human visual consumption. For i = 1 To eventArgs.bytesTotal Step 2 'sFixed = sFixed & Strings.Mid(sLittleEndian, i * 2 + 1, 2) & Strings.Mid(sLittleEndian, i * 2 - 1, 2) sBigEndian = sBigEndian & Strings.Mid(sLittleEndian, i * 2 + 1, 2) & Strings.Mid(sLittleEndian, i * 2 - 1, 2) 'sFixed = sFixed & " " Next '**Debug.Print("Little Endian (Orig): " & sLittleEndian) 'Debug.Print("Big Endian (Fixed): " & sBigEndian) '**Debug.Print("---------------------") lUniqueReturn = CInt("&H" & Strings.Mid(sBigEndian, PKT_UniqueNo, 4)) '**Debug.Print(Now() & " Data for Inverter with Internal ID " & lUniqueReturn) '**Debug.Print(" 1 2 3 4 5 6 7 8 910 1112 1314 1516 1718 1920 2122 2324 2526 2728 2930 3132 3334 3536") '**Debug.Print(sFixed) 'Print #gDebugFile, Now() & " 1 2 3 4 5 6 7 8 910 1112 1314 1516 1718 1920 2122 2324 2526 2728 2930 3132 3334 3536" 'Print #gDebugFile, Now() & " " & sFixed If eventArgs.bytesTotal < 36 Then StatusAdd("Wrong number of bytes received (should have been 36): " & eventArgs.bytesTotal) Exit Sub End If 'Identification info gsModel_No = CStr(CInt("&H" & Strings.Mid(sBigEndian, PKT_Model, 4))) gsFamily_Name = gsFamily(CInt(gsModel_No)) gsModel_Name = gsModel(CInt(gsModel_No)) giSerial_Number = CInt("&H" & Strings.Mid(sBigEndian, PKT_SerialHigh, 4) & Strings.Mid(sBigEndian, PKT_SerialLow, 4)) gsFirmware_Version = CInt("&H" & Strings.Mid(sBigEndian, PKT_FirmwareHigh, 2)) & "." & CInt("&H" & Strings.Mid(sBigEndian, PKT_FirmwareLow, 2)) gsBoard_Type = CStr(CInt("&H" & Strings.Mid(sBigEndian, PKT_BoardType, 4))) gsBoard_Serial = CStr(CInt("&H" & Strings.Mid(sBigEndian, PKT_BoardSerial, 4))) 'DC Voltage -- needed in the fault determination code, below cDCVolts = CDec("&H" & Strings.Mid(sBigEndian, PKT_DCVoltage, 4)) * gdDC_Voltage(CInt(gsModel_No)) lblDCVolts.Text = Format(cDCVolts, "###0.0") & " VDC" 'Status iState = CInt("&H" & Strings.Mid(sBigEndian, PKT_State1, 4)) iFault2 = CInt("&H" & Strings.Mid(sBigEndian, PKT_State2, 4)) lblStatus1.ForeColor = System.Drawing.Color.Red Select Case iState Case &H15 lblStatus1.Text = "Online" lblStatus1.ForeColor = System.Drawing.Color.Blue lblStatus2.Text = "" iNewFace = Faces.HAPPY_FACE Case &H80 iNewFace = Faces.RED_FACE lblStatus1.Text = "Error -- Fault code " & iFault2 ' In case nothing hits, below, something to see. If iFault2 = &H1000 Then lblStatus1.Text = "Deep Sleeping" lblStatus2.Text = "General Voltage Fault" iNewFace = Faces.SLEEPY_FACE End If If iFault2 = &H200 OrElse iFault2 = &H1200 Then lblStatus1.Text = "Low Voltage Fault" If CBool(iFault2 And &H8000) Then lblStatus1.Text = "PDPA Fault" : Beep() If CBool(iFault2 And &H400) Then lblStatus1.Text = "Ground Fault" : Beep() If CBool(iFault2 And &H200) Then lblStatus1.Text = "Low Power Fault" If CBool(iFault2 And &H100) Then lblStatus1.Text = "CPU Load Fault" : Beep() If CBool(iFault2 And &H40) Then lblStatus1.Text = "Overcurrent Fault" : Beep() If CBool(iFault2 And &H20) Then lblStatus1.Text = "Precharge Fault" : Beep() If CBool(iFault2 And &H4) Then lblStatus1.Text = "Heatsync Over Temperature Fault" : Beep() If CBool(iFault2 And &H1) Then lblStatus1.Text = "Ambient Temperature Fault" : Beep() Case Else lblStatus1.Text = "Light Sleeping" iNewFace = Faces.SLEEPY_FACE lblStatus1.ForeColor = System.Drawing.Color.Black End Select 'Temperature fCTemp = CDec(CDec("&H" & Strings.Mid(sBigEndian, PKT_Temperature, 4)) * 0.01) fFTemp = CDec(fCTemp * 1.8 + 32) lblFinTemp.Text = Format(fCTemp, "##0.0") & "° C / " & Format(fFTemp, "#0.0") & "° F" 'AC Voltage lblACVolts.Text = Format(CDec("&H" & Strings.Mid(sBigEndian, PKT_ACVolts, 4)) * gdAC_Voltage(CInt(gsModel_No)), "###0.0") & " VAC" If iFault2 <> &H1000 Then 'AC Current cACAmps = CDec("&H" & Strings.Mid(sBigEndian, PKT_ACCurrent, 4)) * gdAC_Current(CInt(gsModel_No)) lblACCurrent.Text = Format(cACAmps, "#,##0.0") & " Amperes" 'AC Power cACPower = CDec("&H" & Strings.Mid(sBigEndian, PKT_ACPower, 4)) * gdAC_Power(CInt(gsModel_No)) If CDbl(cACPower) > glPeakWattsThisDay(glHistoricalDateCt) Then glPeakWattsThisDay(glHistoricalDateCt) = CInt(cACPower) lblACPower.Text = Format(cACPower, "##,##0") & " Watts/Hours" Else lblACCurrent.Text = "" : lblACPower.Text = "" : cACAmps = CDec(0) : cACPower = CDec(0) ' Clear out references during fault(s) per the PVM1010 manual. End If 'Lifetime KWs glLifetimeKW = CInt("&H" & Strings.Mid(sBigEndian, PKT_LifeKWHigh, 4) & Strings.Mid(sBigEndian, PKT_LifeKWLow, 4)) lblLifeKW.Text = Format(glLifetimeKW, "###,##0") & " KW" If glMidNightKWs = 0 Then glMidNightKWs = CInt(glLifetimeKW) ' In case there is no TrendData file. glKWsThisDay(glHistoricalDateCt) = glLifetimeKW - glMidNightKWs gsHistoricalDate(glHistoricalDateCt) = Format(Now, "Short Date") gbQueryStatus = REQ_PACKET ' This one worked. Next time, query again. If Minute(Now()) Mod 15 = 0 Then ' glWhichFace = Faces.HAPPY_FACE AndAlso Dim newThread As New Thread(AddressOf GetAmbientCondx) ' Do on thread other than main to avoid lock ups. newThread.Start() End If 'Don't fill space with zero power entries (mostly night time) except make a midnight entry for the next day. 'The following problem seems to have been fixed by other coding and is left for historical information only: 'Without the midnight entry, the program cannot tell if the last exit was before or after midnight and could report 'the wrong KWs after restart midnight. If CDbl(cACPower) > 10 OrElse cDCVolts > 100 OrElse CBool((iFault2 And &H200)) OrElse (Hour(Now) = 0 And Minute(Now()) = 0) Then If gbTrendFileOpenStatus = TREND_FILE_CLOSED Then OpenTrendFile() 'giTrendFileNo = FreeFile() 'FileOpen(giTrendFileNo, My.Application.Info.DirectoryPath & "\" & TrendFileName, OpenMode.Append, OpenAccess.Write) 'gbTrendFileOpenStatus = TREND_FILE_OPEN 'End If s = Format(Now(), "short date") & "," & Format(Now(), "Hmm") & "," & _ lUniqueReturn & "," & _ Format(fFTemp, "###0.0") & "," & _ Format(cDCVolts, "###0.0") & "," & _ Format(cACAmps, "###0.0") & "," & _ Format(cACPower, "###0.0") & "," & _ glLifetimeKW lckCondx.EnterReadLock() If lPrevAmbient <> glAmbientTemp Then s &= "," & glAmbientTemp lPrevAmbient = glAmbientTemp End If lckCondx.ExitReadLock() 'Debug.Print(s) 'On Error GoTo CannotWrite PrintLine(giTrendFileNo, s) 'To use Flush here, must convert to StreamWriter 'Using sw As StreamWriter = File.CreateText(FILE_NAME) ' First time, use File.CreateText then use File.AppendText ' sw.WriteLine("This is my file.") ' sw.WriteLine("I can write ints {0} or floats {1}, and so on.", 1, 4.2) ' sw.Close() 'End Using gsTrendTimeToday(glTrendCtToday) = Format(Now, "Hmm") glTrendPowerToday(glTrendCtToday) = CInt(cACPower) glTrendDCVoltsToday(glTrendCtToday) = CInt(cDCVolts) glTrendCtToday = glTrendCtToday + 1 DoCorrectGraphOnDataArrival(NOT_YESTERDAY) End If If gdtToday <> CDate(Format(Now, "M/d/yyyy")) Then HandleDateChange() ' Do Midnight code now If glWhichFace <> iNewFace Then Select Case iNewFace Case Faces.HAPPY_FACE Me.Icon = My.Resources.Happy_Face Case Faces.MEDIUM_FACE Me.Icon = My.Resources.Medium_Face Case Faces.SAD_FACE Me.Icon = My.Resources.Sad_Face Case Faces.RED_FACE Me.Icon = My.Resources.Red_Face Case Faces.SLEEPY_FACE Me.Icon = My.Resources.Sleeping_Face End Select NotifyIcon.Icon = Me.Icon End If 'The Trend file gets reopened for one more write at midnight. Now close it down, if opened and sleeping. If iNewFace = Faces.SLEEPY_FACE AndAlso glWhichFace <> iNewFace AndAlso gbTrendFileOpenStatus = TREND_FILE_OPEN Then FileClose(giTrendFileNo) gbTrendFileOpenStatus = TREND_FILE_CLOSED 'If we are asleep and the FTP site is defined, it is after noon and no FTP has been done then FTP the file to the backup site. If Not gbTrendFile_Daily_FTP_Done AndAlso gsFTPSite <> "" AndAlso Hour(Now) > 12 Then DoFTP_TrendFile() End If If glWhichFace <> iNewFace Then Dim NewFace As Faces = CType(iNewFace, Faces) StatusAdd("Changed ICONs to " & NewFace.ToString) glWhichFace = iNewFace NewFace = Nothing End If 'This is a stop gap in case the program was not running at midnight but was started the next day. 'I guess this obviates the need for the midnight entry but I will leave it in. I takes so little space and 'it is comfortable there. If Format(gdtLastTrendDate, "short date") <> Format(Now, "short date") Then gdtLastTrendDate = Now glMidNightKWs = glLifetimeKW End If 'Keep trying to FTP once per hour until it is done properly. If glWhichFace = Faces.SLEEPY_FACE AndAlso Not gbTrendFile_Daily_FTP_Done AndAlso Minute(Now) = 0 AndAlso Hour(Now) > 12 Then DoFTP_TrendFile() lckCondx.EnterReadLock() If Strings.UCase(gsWX_WindDir) = "CALM" Then lblWindInfo.Text = gsWX_WindDir & vbCrLf & gsUpdtTime ' ° removed Else lblWindInfo.Text = gsWX_WindDir & " " & gsWX_WindSpeed & vbCrLf & gsUpdtTime ' ° removed End If Application.UseWaitCursor = False lblAmbient.Text = CStr(glAmbientTemp) & "° " & gsTempUnit & " / " & gsWX_Condx lckCondx.ExitReadLock() CannotWrite: StatusAdd("Cannot write to TrendFile, trying to open again.") OpenTrendFile() Resume End Sub Tag: Dienst beenden/staren Tag: 414859
  - 20
    - Convert hrs, mins, ms to seconds Hello - I have various times formatted like 00:00:00, so for example, 01:32:05 would be one thirty-two with five milliseconds. I need to convert this into seconds (an integer). First of all, I have been unable to use the mid() function like I did in vb 6. I have searched all over the internet and it seems everyone is doing just the opposite; converting an integer to hours, minutes and seconds!! Any help will be greatly appreciated! -- Sheldon Tag: Dienst beenden/staren Tag: 414854
  - 21
    - Have I found a bug in VB.Net 2005 ADOX.Catalog? When I use the code below to create an mdb (access database) I am unable to release it and the locking file remains persistent. For my app this is bad if the user tries to delete the mdb later on. Has anyone encountered this scenario? Is this a bug? I am using VB.Net 2005. Is there any way to get out of this jam? Currently my app will only release its hold on the mdb after the app closes. I do not understand. Please help as I am on a deadline on Monday morning and am in a HUGE pickle. Dim catNewDB As New ADOX.Catalog XMLFILE = strFi & "\merchantable" & strDate & strTime catNewDB.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & XMLFILE & ".mdb;") catNewDB = Nothing There is no member of ADOX to drop, close, destruct the connection. Thanks for any help you can provide. Peace The Mad Ape Tag: Dienst beenden/staren Tag: 414846
  - 22
    - working with SQL null values.... Hi, I have a result set that sometimes will contain a Null value from the SQL server. I have looked into this and am trying to manage this with the following If Not DBNull.Value.Equals(dRow("path")) Then advCell.Text = dRow("path") Else advCell.Text = "No Path" End If However it doesn't matter what the result set contains.. it also execute top condition.. Am I doing something wrong.... is there a better way to deal with Sql Null values ? Tag: Dienst beenden/staren Tag: 414845
  - 23
    - Adding an external associated account to an active directory object Hi, i want to add an extern associated account to an mailenabled ad object. everthing works fine (i'm working with vb.net 2008 express) but saving produces an error. both lines: objExMbx.InvokeSet("msExchMasterAccountSID", RawSid) objExMbx.InvokeSet("msExchMailboxSecurityDescriptor", objSD) lead to an exception (in german) Unbehandelte Ausnahme: System.Reflection.TargetInvocationException: Ein Aufrufziel hat einen Ausnahmefehler verursacht. ---> System.Runtime.InteropServices.COMException (0x80004005): Beim Aufruf einer COM-Komponente wurde ein HRESULT E_FAIL -Fehler zurückgegeben. --- Ende der internen Ausnahmestapelüberwachung --- bei System.DirectoryServices.DirectoryEntry.InvokeSet(String propertyName, Object[] args) bei SetMSExternalAccount.Main.Main() in C:\Dokumente und Einstellungen\user\Eigene Dateien\Visual Studio 200 8\Projects\SetMSExternalAccount\SetMSExternalAccount\Module1.vb:Zeile 300. RawSid is "Dim RawSid as IntPtr" and the sid is converted via ConvertStringSidToSid Declare Auto Function ConvertStringSidToSid Lib "advapi32.dll" ( _ ByVal StringSid As String, _ ByRef Sid As IntPtr) As Long and objSD is "Dim objSD As ActiveDs.SecurityDescriptor" i checked the contents of the SD which is: NT-AUTORITÄT\SELBST, 131075, 0, 2, 0, , NT-AUTORITÄT\SELBST, 131075, 0, 2, 0, , TOPTEST\user, -2147418107, 0, 0, 0, , and is correct. where am i wrong? Regards, Dirk Tag: Dienst beenden/staren Tag: 414844
  - 24
    - Generally accepted Developer Job Descriptions and hiarchy. Good Evening fellow .NET Developers, Sorry about off post.. Does anybody know where I might find a good (free) list of IT Developer job descriptions. HR is saying that job title Sr. Programmer and Sr. Systems Analyst should be on the same pay scale and level and they are not neccessarily on the same career path. As far as I've always knows, a Sr. Programmer is on his way to becoming a Programmer/Analyst and eventually a Systems Analyst. A poll.. Is it generally accepted as an IT standard that most Sr. Systems Analyst are coding in addition to Analysis and Design? But that in many shops, many Sr. Programmers might not be doing much Design and Analysis (especially at the Applciation level)? Leading projects? Meeting with users and collecting requirements? Designing a full solution with a higher complexity of components than a Sr. Programmer? If you are handed a raw problem that requires that you call meetings with users. Collect requirements. Design and build databases. Design and code Middleware. Design and code reports. Design and code Web front End forms. Configure Servers and IIS....then run through the full SDLC is Sr. Programmer a fair title? Thanks for any help or information! Tag: Dienst beenden/staren Tag: 414834
  - 25
    - Anyone using Activa CoolStorage ORM in VB.Net, got some questions I can't figure this thing out, there's little to no documentation on how to use this and even then it is in C#, albeit not difficult to convert to VB.Net. Anyway, I'd like to know if anyone has an example program using it. Tag: Dienst beenden/staren Tag: 414832
- Next
  - 1
    - 2nd opinion? - Windows service app development I have not touched a Windows Service app since my MCAD certs (about 5 years ago...) I've just been assigned to write a quickie app. I could use a 2nd opinion here. The app is to be written in Dot Net 2.0 (VB). Probably all it will do is monitor a directory (at intervals controled by a timer), do some stuff with text files, and ftp text files to an ftp. I believe I've successfully tested most of the techniques I'll be using but I was wondering about the status of the ServiceProcessInstaller's Account setting. 'LocalSystem' seems to works fine. "LocalService' works fine as well, if I give 'Local Service' full access to the directory. So I suppose my question is, given the above, should I prefer using "LocalSystem" or "LocalService"? (Are there any 'gotchas' with either in a situation like this?) Tag: Dienst beenden/staren Tag: 414825
  - 2
    - VB.NET - System Information Can anyone tell me how to obtain system info in VB.NET (Windows Form). In VB6 I used to use the SysInfo, but cannot find any similar process in VB.NE From http://www.developmentnow.com/g/38_0_0_0_0_0/dotnet-languages-vb.ht Posted via DevelopmentNow.com Group http://www.developmentnow.com Tag: Dienst beenden/staren Tag: 414818
  - 3
    - Transparent TextBox or background image First off, excuse my English, is an online translation. Hello. I've been looking for a long time over the Internet how to make a "textbox" is transparent or having a background image, but I can not find, just a website that allows a "textbox" is transaprente, but is in C (and not I have no idea C). The Web is this: http://www.codeproject.com/KB/edit/TransparentTextBox.aspx I think that is an interesting feature that microsoft has not ever happened (or so it seems). Anyway, if someone knows how to convert the C code to VB.NET since it would be perfect. Thank you all. Tag: Dienst beenden/staren Tag: 414817
  - 4
    - Deploying with Custom References Using VS2005: We have created custom class projects that output to DLL files. In our App, we add these to the list of Solution References and include them in the code. When the App compiles, it places copies of the DLL files in the output (bin's Debug/Release folders). Now we are trying to test the deployment. We created an Installer project and listed each of the DLL files with the Exclude property set to False. We install the application, and there are no errors. When we launch the application, it appears to be crashing about where it is supposed to be accessing one of the DLL files. Is there something special that needs to be done to install DLL files along with a project? I tried manually registering them using the Run command and "regsvr32", but none of the DLLs have entry points, and nothing was registered. Tag: Dienst beenden/staren Tag: 414814
  - 5
    - Microsoft.VisualBasic.Devices.Network Download Error I am using Microsoft.VisualBasic.Devices.Network to download a file from a server to a PC and am receiving a 404 error. The file is in teh download location but it has 0kb. Does anyone have any idea why it's bombing? oNet.DownloadFile(URL, FIRMWAREPATH & "\update\update.tt", "name", "pwd", True, 1000, True) Tag: Dienst beenden/staren Tag: 414813
  - 6
    - Caps Lock Warning for Password Control I'm not sure when it came into being, since this it the first time I have worked very much with a password control in .NET, but if a textbox that has a non-empty value for PasswordChar or the UseSystemPasswordChar property is true, and the textbox has focus, if the Caps Lock key is pressed, a warning balloon tooltip is automatically displayed by the system. I cannot even find documentation that describes this behaviour. My question is, is there anyway to temporarily turn that off in code? Tag: Dienst beenden/staren Tag: 414809
  - 7
    - Treeview and find text in node Hi, I need a routine/finction that finds a text, starting at the selected node, where a given text is in. say i have some nodes with 1 'sonday' and another with 'son' and I look for 'so' it will first find 'sonday' and the next time 'son'. ones it have found everything with the look parameter it restart at the top. Jan Tag: Dienst beenden/staren Tag: 414807
  - 8
    - Error BC30284 Hello, I recently converted projects from VS7.1 (2003) to VS9.0 (2008) and am getting the following error on some subroutine declarations: error BC30284: sub 'SomeSub' cannot be declared 'Overrides' because it does not override a sub in a base class. The subs on which this occurs have parameters of a type that comes from an external COM library. I have added references to the library to both the project containing the base class and the project containing the derived class. Does anyone know what I have to do to get rid of this error? Thanks much, Juan Tag: Dienst beenden/staren Tag: 414800
  - 9
    - DataGridView Bug or Design Flaw? I use unbound DataGridView controls in my form (simply because I have to manually message my data before populating the DataGridView with it). Say I clear all the info from the DataGridView: DataGridView1.Columns.Clear() Now I manually add new columns to fill: DataGridView1.Columns.Add("Date_Time", "Date_Time") DataGridView1.Columns.Add("Station_ID", "Station_ID") DataGridView1.Columns.Add("Operator", "Operator") Now try to fill these columns using their Column Names used above: Dim dgRow As New DataGridViewRow() dgRow.CreateCells(DataGridView1) dgRow.Cells["Date_Time"].Value = DateTime.Now().ToString() dgRow.Cells["Station_ID"].Value = "Test Station 1" dgRow.Cells["Operator"].Value = Form1.EmployeeNameTextBox.Text DataGridView1.Rows.Add(dgRow); Here is the error: ArgumentException was unhandled Column named Date_Time cannot be found. Parameter name: columnName Is there a fix for this? Microsoft has overloaded this method to accept an integer Index or a string columnName, but the columnName version does not appear to work. My DataGridColumns are added Programmatically, so I don't always know what the Index value of the DataGridColumns are going to be. Is there a way to get the DataGridColumn's Index using the columnName? Is this the way to get around this problem? I have also coded a different version using CellTemplates, but it threw the same error. Tag: Dienst beenden/staren Tag: 414787
  - 10
    - Favorites and Shortcut images for TreeView?? Hello, i'm seeking for a Favorites and Shortcut image for a TreeView Control. (The Shortcut image should be combined with the object image with DrawImageUnscaled) They should look like in Internet Explorer. I tried the Favorites.png and the Shortcut.png in VS2008ImageLibrary\1033\VS2008ImageLibrary\Objects\png_format\WinVista but the Favorits.png is rotated. This looks very bad. And the Shortcut.png looks bad in the Treeview true. It seems to have to less color. It looks weak, is limp the right word?? I simply need a Favorites and an Shortcut image like in Internet Explorer. But i think it is forbidden to use the original Microsoft Icons? Where can i get such or similar png images for free? Thank you very much and best regards, Markus mÃ¶chte in einer Windows Forms Anwendung in einem TreeView einen Favoriten Eintrag erstellen. Das Icon dieses TreeNodes sollte der Stern vom Internet Explorer sein. (Oder so Ã¤hnlich.) Wo finde ich so ein Icon welches ich verwenden kann? (Habe in Google nachgesehen. Nichts gefunden.) Die ChildNodes sollen VerknÃ¼pfungen zu anderen TreeNodes im TreeView sein. Jede VerknÃ¼pfung soll das Icon des TreeNodes erhalten zu dem es zeigt. Im Windows Explorer ist links unten zusÃ¤tzlich ein Pfeil der die VerknÃ¼pfung kennzeichet. Frage: Muss fÃ¼r jede Klasse von Objekten 2 mal ein Icon erstellt werden? Eins ohne den Pfeil (fÃ¼r ein Objekt der Klasse) eins mit (fÃ¼r die VerknÃ¼pfung dahin). Oder gibt es die MÃ¶glichkeit 2 Icons Ã¼bereinander zu legen? Also das Icon der Klasse mit dem Pfeil-Icon um es als VerknÃ¼pfung zu einem Objekt der Klasse zu kennzeichnen? Vielen, vielen Dank, Markus Tag: Dienst beenden/staren Tag: 414777
  - 11
    - converting outlook emails to text ? I would like to create a program or service that would monitor email account and take every new email that comes in (exchange server) and convert it to a text file and than save it to a specific folder. Can this be done automatically? Also is there a way to supress outlook prompts?... How could I accomplish this? thanks Tag: Dienst beenden/staren Tag: 414771
  - 12
    - How do I get the Name of the current folder from my FileSave Dialog? Hello I have a FileSave Dialog and am trying to pass the current folder name to a string. Is there any way to do that? It was easy to get the file path and name using .FileName but I see nothing to get the Folder. Thanks The Mad Ape Dim RepDat As System.Windows.Forms.SaveFileDialog RepDat = New System.Windows.Forms.SaveFileDialog() RepDat.CreatePrompt = False RepDat.OverwritePrompt = True RepDat.FileName = lblFolder.Text RepDat.Filter = "Access 2K (*.mdb) |*.mdb" If RepDat.ShowDialog() = DialogResult.Cancel Then Exit Sub End If Dim strFi As String = RepDat.FileName.ToString 'returns file name Dim strDir As String = 'what do I type here to get the current folder? RepDat.Dispose() RepDat = Nothing Tag: Dienst beenden/staren Tag: 414770
  - 13
    - HowTo observe all Properties of a Class (and maybe cancel the try to Hi! I want to create a huge amount of classes. All classes have in common that the change of a property should fire an Change-Event and maybe do other things. I don't want to write thousand times the same things like that: Public Property Price() As Double Get Return _Price End Get Set(ByVal value As Double) If Not _Price = value Then Dim old As Object = _Price _Price = value RaiseEvent PropertyChanged(Me, New PropertyEventArgs("Price", old, value)) End If End Set End Property Writing this in every class (and every Property) makes no clear code. Any Ideas? My Idea was to use the reflection and observe the properties, but I dont know how to do that. Thanks for every comment. C. Herzog Tag: Dienst beenden/staren Tag: 414764
  - 14
    - In Visual Basic 2008 create aspx web pages programmatically I am working with Visual Studio or alternately with Expression Web. I need to create about 50 aspx pages with about 1200 thumbnali images, typically arranged in three to four groups per page, having hyperlinks to the corresponding full size images. Can anybody point me to locations in MSDN or elsewhere giving the references to attach, the commands & objects for creating or opening the pages and possibly available classes? I have done equivalent things with Excel where the corresponding references workboook & worksheet commands, etc, are widely available. Any direction would be appreciated. Peter K Tag: Dienst beenden/staren Tag: 414762
  - 15
    - Help With Managing Dynamic controls I've never work with creating controls on the fly. Now that I am, I'm uncertain about a particular aspect. Example: I have a static listbox named ListBox1. I use the following routine: Private Sub ListBox1_MouseDown(........) Handles ListBox1.MouseDown That's great for ListBox1 however how do I handle a listbox I create and name on the fly? Thanks for the help! Tag: Dienst beenden/staren Tag: 414755
  - 16
    - How to compel Panel scrolled using wheel? A container (Panel) ignores attempts to scroll his content a mouse wheel persistently. How it to correct? http://www.alvas.net - Audio tools for C# and VB.Net developers Tag: Dienst beenden/staren Tag: 414754
  - 17
    - Disable the Control Box Is there a setting on the form I can set to hide or disable the close button (The Red "X" in the top right of an XP form) so the users cannot exit the program, but still show the min and max buttons. The problem I have is on some of the tabs in my program I have validation events on textboxes. When the users clicks the "X" to close the program, the validation event fires before exiting the program causing some confusion. Thanks. John Tag: Dienst beenden/staren Tag: 414742
  - 18
    - XElement hell I'm going through the documentation help about using XElement and I'm finding no help with going through the elements as a recordset. here's an example of the return results I am getting through ISBNdb.com (snipped for brevity): <BookList total_results="287" page_size="10" page_number="1" shown_results="10"> â?? <BookData book_id="4_classic_american_novels_the_scarlet_letter_adventures_of_h" isbn="0451527771"> â?? <Title> 4 Classic American Novels: The Scarlet Letter, Adventures of Huckleberry Finn, Red Badge of Courage, and Billy Budd </Title> â?? <TitleLong> 4 Classic American Novels: The Scarlet Letter, Adventures of Huckleberry Finn, Red Badge of Courage, and Billy Budd (Signet Classics (Paperback)) </TitleLong> <AuthorsText>Willard Thorp, Herman Melville, </AuthorsText> <PublisherText publisher_id="signet_book">Signet Book</PublisherText> </BookData> â?? <BookData book_id="adventures_of_huckleberry_finn" isbn="0195101405"> <Title>Adventures of Huckleberry Finn</Title> <TitleLong/> â?? <AuthorsText> Mark Twain; foreword, Shelley Fisher Fishkin; introduction, Toni Morrison; afterword, Victor A. Doyno </AuthorsText> <PublisherText publisher_id="oxford_university_press">New York : Oxford University Press, 1996.</PublisherText> </BookData> </BookList> I want to go through each BookData and return certain fields to a datagrid. Anywhere I should start in the documentation? Tag: Dienst beenden/staren Tag: 414736
  - 19
    - How can I disable sorting in a DatagridView? Hello, Programmers. How can I disable sorting in a DatagridView? Thanks in advance. Tag: Dienst beenden/staren Tag: 414734
  - 20
    - Conversion Problem Hi This .net is driving me crazy!! In VB6 I had a type which contained a couple of multi-dimentional arrays which i used to create and read records: Type AAA : Array1(10,10,2) as Integer Array2(20,20,4) as Integer : End Type I'm trying to get vb8 set up so that i can use the same files and use the fileopen method to randomly access the file data etc vb8 won't let me use <vbfixedarray> with more than 2 dementions so i cannot declare it correctly in the structure declaration. What i have done is: Structure z : dim Array1(,,) as short dim Array2(,,) as short : End Structure Dim x as z I have then tried to Redim in an initialation so: redim x.array1(10,10,2) redim x.array2(20,20,4) But when i go to get the record length Len(x) it is totally wrong Is there any way out of this mess so i can use my original record structures with openfile and random access? Why does vbfixedarray only allow 2 dementions????? Cheers John Tag: Dienst beenden/staren Tag: 414731
  - 21
    - Using OCX in .NET Hi misters, I try use an OCX in my Winforms application with VS 2005. The OCX is a PDF Viewer (XPdfViewer) I have several issues about it: 1. I add reference to COM, and VS generate Interop.XpdfViewer.dll When I call to method of COM, I get this error: ErrorCode -2147467259 Exception Details: System.Runtime.InteropServices.COMException: Error HRESULT E_FAIL has been returned from a call to a COM component One question, how I get a detail description of a COMException ?? Any help please. 2. I Choose Items in Toolbox and select COM (OCX). The VStudio generate AxInterop.XpdfViewer.dll. (which is the difference AxInterop.XpdfViewer.dll and Interop.XpdfViewer.dll???) For a Component Control, in design, the control XPdfViewer NOT appears in toolbox, why ??? For Forms, in design, the control XPdfViewer appears in toolbox For UserControl, in design, the control XPdfViewer appears in toolbox Any suggestion about it ? Thanks in advance. -- http://www.alhambra-eidos.es/web2005/index.html www.kiquenet.net http://www.setbb.com/putainformatica/viewtopic.php?p=843 www.trabajobasura.com/solusoft Tag: Dienst beenden/staren Tag: 414730
  - 22
    - word-xml Hi, i am working iwith "VB.net 2005" on an ADO project in which I want a control (panel or something else) where the user can load a word-dcoument. On this document there some fields with value generated of a record based on an access DB. I willl this document as part of my windowsform and not as a separate window. Can someone tell me how i can handle this or where i can find a sample of this. regards, Rob Tag: Dienst beenden/staren Tag: 414729
  - 23
    - Keyboard shortcuts on a webpage Hello, Context = Web site with VB2008. Is it possible to define keyboard shortcuts on a webpage, to make it possible for the user to "click" on a button or a link, or to set the focus on a control, by using only the keyboard ? How ? Thank you for your help, Gilbert Tag: Dienst beenden/staren Tag: 414728
  - 24
    - My.Computer.FileSystem.SpecialDirectories.AllUsersApplicationData When I use My.Computer.FileSystem.SpecialDirectories.AllUsersApplicationData in the environment, it returns something useful such as C:\ProgramData\CompanyName\AppName\1.0.0.0 However, if I Publish my application and then run it, it returns something like: AllUsersApplicationData = C:\Users\Username\AppData\Local\Apps\2.0\Data\YEQ9RET6.0YW\5NN55LT2.T2L\spec..tion_2d2f69b37f9e4e75_0001.0000_d2fdb2740a47be9c\Data where "UserName" is my logged in account's name. Should I not be using ClickOnce? Is ClickOnce ONLY for completely per-user-isolated apps? -- David Streeter Synchrotech Software Sydney Australia Tag: Dienst beenden/staren Tag: 414727
  - 25
    - VBPowerPack3 Hello, i wanted use the "print" method/function in VS2008 the same as in VB6.0 so i am using the powerpack 3 , but some method/function unsupported. I found that there is property Printer."TrackDefault" in VB6.0 but the same thing not supported in VBPowerPack3. Can any one help on the same ? Thanks VM Tag: Dienst beenden/staren Tag: 414726

Hallo,

ich h=E4tte wieder eine Frage an Euch.

Unter Vista muss ich ein Dienst stoppen um ein Texteintrag in einer
Steuerdatei zu =E4ndern. Habe mich =FCber die Hilfe informiert und bin auf
"System.ServiceProcess.ServiceController" gestossen, nur ich kann
eintragen was ich will, ServiceController kenn mein "Visual Basic 2008
Express Edition" nicht.

Mache ich was falsch oder kennt Express die Klasse nicht obwohl diese
in der Hilfe ausgegeben wird?

W=E4re =FCber Infos sehr dankbar.

Gruss,
Maximilian Tescher

Top

Re: Dienst beenden/staren by Herfried

Herfried
Mon Jul 14 18:38:29 CDT 2008

"Maxi" <maxitesch@gmx.de> schrieb:
>Unter Vista muss ich ein Dienst stoppen um ein Texteintrag in einer
>Steuerdatei zu ändern. Habe mich über die Hilfe informiert und bin auf
>"System.ServiceProcess.ServiceController" gestossen, nur ich kann
>eintragen was ich will, ServiceController kenn mein "Visual Basic 2008
>Express Edition" nicht.

Add a reference to "System.ServiceProcess.dll" to your project.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

Top

Re: Dienst beenden/staren by Maxi

Maxi
Fri Jul 18 15:42:53 CDT 2008

Hallo Herfried,

danke f=FCr die Info, werde ich gleich mal testen.

Gruss,
Maxi

Top