|
What is about MyPath = WScript.Path?
Or using WScript.ScriptFullName and WScript.ScriptName?
With best wishes,
Vita
|
|
|
|
|
Which attribute should I set?
Thanks
|
|
|
|
|
The following will ensure the form is kept on top:
Option Explicit
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Const HWND_TOPMOST = -1
Const SWP_SHOWWINDOW = &H40
Const SWP_DRAWFRAME = &H20
Private Sub Form_Load()
Dim retval As Long
retval = SetWindowPos(Me.hwnd, HWND_TOPMOST, 100, 100, 100, 100, SWP_DRAWFRAME Or SWP_SHOWWINDOW)
End Sub
|
|
|
|
|
In VB.NET, set the TopMost property to True.
In VB6, search MSDN for Q184297
lazy isn't my middle name.. its my first.. people just keep calling me Mel cause that's what they put on my drivers license. - Mel Feik
|
|
|
|
|
Hi Folks
I have got something for you to think about...the thing is i have a text file which contains huge dataset( delimited records). It has a trailer at the end which will have the record count and other relevant information about the text file.
Now i need to verify whether the record count mentioned in the trailer is correct.
i am right now doing this by looping through entire file and incrementing the count.
The issue is since this is a line by line read operation its taking hell alot of time.
These are the questions
Is there a way through which we can find how many lines in a file.
Is there a way to read the entire file as a stream in VB6.0.
Please help me asap
Best Regards
Venkatraman Kalyanam
Chennai - India
"Being Excellent is not a skill, it is an attitude"
|
|
|
|
|
You can use the FileSystemObject to do this.First of all, add a reference to "Microsoft Scripting Runtime". The add the followinf code (more or less) :
**********************************************************************
Dim FSys as New FileSystemObject
Dim txtStr as TextStream, iLine as Integer
Set txtStr = FSys.OpenTextFile (FileName)
Do While Not (txtStr.AtEndOfStream)
txtStr.SkipLine
Loop
iLine = txtStr.Line
**********************************************************************
This should be faster than reading the whole text file line by line 
|
|
|
|
|
I need to make a VB 6.0 program to comunicate with MCS51 via ibm interfacing printer ports, any body got the code with explanation of how it works?
Thank for your help
|
|
|
|
|
I've created an addin in VB.Net using the Extensibility Projects/Shared Add-ins project wizard to start. Anyway I've finished everything and got the beast working just fine on my system, however I can seemd to get it to install and run on another system. I checked the registry keys and it appears that everything is there... I've been working on this for a few weeks and haven't seemed to make any progress and am running out of ideas. There must be something that I'm overlooking!
I tried using the VB setup and deployment project, as well as using Installshield Developer 7.04 to create installation projects. They all run fine, and like I said before, they ARE creating the registry keys.
Any ideas or suggestions,
Thanks!
-Steve
|
|
|
|
|
Does anyone have ANY suggestions? I'm getting desparate! <grin>
Thanks!!
-Steve
|
|
|
|
|
plz can any body help me how to get the IP address and LAN card address of the computer thru VB.NET
-thnx
|
|
|
|
|
|
Tdate is a class I defined.
Then in visual basic,how to define object from Tdate?
I find out "Dim td as new Tdate()" is popularly used,and I did not see "dim td as new Tdate"?
Where can I find that tutorial about how to define objects or variables in visual basic?
Thanks.
this is my signature for forums quoted from shog*9:
I can't help but feel, somewhere deep within that withered, bitter, scheming person, there is a small child, frightened, looking a way out.
|
|
|
|
|
There are several locations on MSDN:
|
|
|
|
|
Thanks for the links.
I will check it out right now.
this is my signature for forums quoted from shog*9:
I can't help but feel, somewhere deep within that withered, bitter, scheming person, there is a small child, frightened, looking a way out.
|
|
|
|
|
I'm trying to create a ''bar bill'',( access Database) which I will be able to click on a button in order to get person's name( which would appear in a textbox with data1)
and the list of things(in a listbox with data2) that that person has been purchased
Thank you
|
|
|
|
|
i am trying to display multi page .tiff file into a pic box. so i have a next button to go to the next page. so far i got this
Dim objImage As System.Drawing.Image = objImage.FromFile("C:\Projects\FaxView\appraisal.tif")
Dim objGuid As Guid
objGuid = (objImage.FrameDimensionsList(0))
Dim objDimension As System.Drawing.Imaging.FrameDimension = New System.Drawing.Imaging.FrameDimension(objGuid)
Dim objBmp As System.Drawing.Bitmap
With objBmp
.FromFile("C:\Projects\FaxView\multipage.tif")
.GetFrameCount(objDimension)
.SelectActiveFrame(objDimension, 1)
End With
it is giving me error: object is not set to object reference at .GetFramecount(objDimension)
any idea why it is saying that? thanks for your ehlp.
Zulfikar Ali
|
|
|
|
|
i figured it out. thanks
Zulfikar Ali
|
|
|
|
|
Ok, I've managed to use the AxMediaPlayer to display my video. Unfortunately, there is absolutely no help or documentation on the methods and properties for the media player. I want to disply the real time frames and/or time as the video is playing. This can be done by displaying the AxMediaPlayer1.CurrentPosition. What I need to figure out is how to update the display as the video is playing. Is this through an event, or do I update the display everytime the AxMediaPlayer1.CurrentPosition is changed? I'm not sure what is the best way to try and do this.
|
|
|
|
|
Ok. I'm a C++ programmer (with a little VB6 experience) that's recently started using VB.NET quite a bit. I have to ask this even though I feel pretty certain that I don't have to worry about it... but I'm not sure just how large the changes are from VB to VB.NET so here we go...
In VB.NET, if I use multiple Timer objects (the new one, not the Forms one) so I can have different times, is there any chance the timers could fire at the same time? Ie, VB.NET is still basically a single threaded application, right? Each run of a fired timer event will NOT be treated as a thread...? I'm just making sure. I'm thinking of doing something a certain way and some of the resources used in each timer are shared so I can't have them stepping on each other. Would another timer fire off while another one is running? Can I stop that behavior (if it exists) with some sort of locking mechanism like a Mutex in C++?
|
|
|
|
|
Are you talking about the System.threading.Timer?
If so, you should have a look at the MSDN regarding them. I just read this.
Use a TimerCallback delegate to specify the methods associated with a Timer. The methods do not execute in the thread that created the timer; they execute in a separate thread that is automatically allocated by the system
If you're talking about the System.Timers.Timer then you're also in trouble
Note The event-handling method may be called even after the Stop method is called. The event-handling method may run on one thread at the same time that a call to the Stop method runs on another thread. This might result in the Elapsed event being raised even after the Stop method is called. To prevent this, use the SignalTime property to compare the time the event was raised to the time the Stop method was called. If the event was raised after the Stop method was called, do not process the event.
Pete
Pete
Insert Sig. Here!
|
|
|
|
|
HI,
In my system, MyNetworkPlaces-> I have few network folders shared for me.
when I click those to view, it prompts the dialogbox to connect to that folder. If I give username and passwork it connects.
so now in my VB.net application, I am asking user to select the network folder, by showing Browse for folder dialog box. The thing is when user selects, any network folder I want to know whether it is connected or not, if not I need to prompt the dialogbox with username and password fileds for connecting to it. so How can I achieve this using vb.net? and what class I need to use for connecting to network folder? I am really struggling for this. Please help me as soon as possible.
For ex:
I want to connect to \\machine1\somefolder
or \\machine2\somefolder, when user selects this folder I need to know whether is it accessinble for user machine, if no i need to prompt the dialog box to connect with username and password as windows shows.
Thanking you
Regards
Praveen P
|
|
|
|
|
Well, I am not sure but I am thinking that no matter how you select that Share, it will prompt you for a User / Password, so you may not have to handle that in your App.
|
|
|
|
|
Ok, I understand that the NetServerEnum API functions do not work on a Win9x machine. In VB6, I had code to enumerate Servers on a Windows9x machine, however, porting it to VB.NET seems impossible. I have it working...somewhat. However, it only enumerates the Top-Level Node everytime!
If someone could please shed some light on what I am doing wrong I would greatly appreciate it! This was all guess-work on my part even though I understand Marshalling a little bit.
Here's what I have so far:
'Declarations
'API Declarations
Private Declare Auto Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Integer, ByVal dwBytes As Integer) As Integer
Private Declare Auto Function GlobalFree Lib "kernel32" (ByVal hMem As Integer) As Integer
'API Declarations for Win9x
Private Declare Ansi Function WNetOpenEnum Lib "mpr.dll" Alias "WNetOpenEnumA" (ByVal dwScope As Integer, ByVal dwType As Integer, ByVal dwUsage As Integer, ByRef lpNetResource As IntPtr, ByRef lphEnum As Integer) As Integer
Private Declare Ansi Function WNetEnumResource Lib "mpr.dll" Alias "WNetEnumResourceA" (ByVal hEnum As Integer, ByRef lpcCount As Integer, ByVal lpBuffer As Integer, ByRef lpBufferSize As Integer) As Integer
Private Declare Ansi Function WNetCloseEnum Lib "mpr.dll" (ByVal hEnum As Integer) As Integer
'Structures
<Runtime.InteropServices.StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _
Private Structure NETRESOURCE
Dim Scope As Integer
Dim Type As Integer
Dim DisplayType As Integer
Dim Usage As Integer
Dim LocalName As IntPtr
Dim RemoteName As IntPtr
Dim Comment As IntPtr
Dim Provider As IntPtr
End Structure
'Constants for WNetEnum
Private Enum ResourceScopes
resConnected = &H1 'All currently connected resources (the dwUsage parameter is ignored)
resGlobalNet = &H2 'All resources on the network.
resRemembered = &H3 'All remembered (persistent) connections (dwUsage is ignored)
resRecent = &H4
resContext = &H5
End Enum
Private Enum ResourceTypes
resAny = &H0 'All resources (this value cannot be combined with RESOURCETYPE_DISK or RESOURCETYPE_PRINT).
resDisk = &H1 'All disk resources.
resPrinter = &H2 'All print resources.
resReserved = &H8
resUnknown = &HFFFF
End Enum
Private Enum ResourceUseages 'Ignored if the ResourceScope is not 'resGlobalNet'
resAll = ((&H1) Or (&H2))
resConnectable = &H1
resContainer = &H2
resNoLocalDevice = &H4
resSibling = &H8
resReserved = &H80000000
End Enum
Private Enum ResourceDisplayTypes 'Used to Determine the Resource Type of the NETRESOURCE Struct
resGeneric = &H0
resDomain = &H1
resServer = &H2
resShare = &H3
resFile = &H4
resGroup = &H5
resNetwork = &H6
resRoot = &H7
resShareAdmin = &H8
resDirectory = &H9
resTree = &HA
End Enum
'Enumerations
Public Enum ServerTypes
All = &HFFFFFFFF '/* handy for NetServerEnum2 */
Browsers = &H10000
Browser_Backup = &H20000
Browser_Master = &H40000
Domains = &H80000000
DomainController = &H8
DomainBackController = &H10
DomainMaster = &H80000
DomainMember = &H100
Novell = &H80
NTClusters = &H1000000 '/* NT Cluster */
Servers = &H2 ' All Servers
ServersDialIn = &H400
ServersLocal = &H40000000
ServersPrintQ = &H200
ServersNT = &H8000
ServersSQL = &H4 ' SQL Server
ServersXenix = &H800
ServersUnix = &H800
TimeServers = &H20
Workstations = &H1
WorkstationsNT = &H1000
WorkstationsWin9x = &H400000 '/* Windows95 and above */
End Enum
'Routine to Refresh Servers on a Win9x Machine (uses Recursion)
Private Sub RefreshServersWin9x(Optional ByVal Domain As String = Nothing)
Dim vResource As NETRESOURCE
Dim hResult, hEnum, hBuffer, hPointer, i As Integer
Dim nBufferSize As Integer = 16384, nCount As Integer = &HFFFFFFFF
Const GMEM_FIXED As Integer = &H0
Const GMEM_ZEROINIT As Integer = &H40
Const GPTR As Integer = (GMEM_FIXED Or GMEM_ZEROINIT)
'Initialize the Buffer Pointer
Dim ptrBuffer As IntPtr = IntPtr.Zero, ptrDomain As IntPtr = IntPtr.Zero
If (Not IsNothing(Domain)) AndAlso (Domain.Length > 0) Then
ptrDomain = Marshal.StringToBSTR(Domain)
ptrBuffer = Marshal.AllocCoTaskMem(Marshal.SizeOf(vResource))
vResource.RemoteName = ptrDomain
Call Marshal.StructureToPtr(vResource, ptrBuffer, True)
End If
Try
hResult = WNetOpenEnum(ResourceScopes.resGlobalNet, ResourceTypes.resAny, ResourceUseages.resContainer, ptrBuffer, hEnum)
If (hResult = 0) And (hEnum <> 0) Then 'Successful
'Enumerate the Resource
hBuffer = GlobalAlloc(GPTR, nBufferSize)
hResult = WNetEnumResource(hEnum, nCount, hBuffer, nBufferSize)
If (hResult = 0) Then 'Successful
hPointer = hBuffer
For i = 0 To nCount - 1
'Retrieve the Information for the Resource
vResource = CType(Marshal.PtrToStructure(New IntPtr(hPointer), GetType(NETRESOURCE)), NETRESOURCE)
'Recurse to Find the Servers if this is a Root or Domain Node
Select Case vResource.DisplayType
Case ResourceDisplayTypes.resDomain, ResourceDisplayTypes.resGroup, ResourceDisplayTypes.resNetwork, ResourceDisplayTypes.resRoot
Call Me.RefreshServersWin9x(Marshal.PtrToStringAnsi(vResource.RemoteName))
End Select
'Determine the Next Pointer
hPointer += Marshal.SizeOf(vResource)
Next i
End If
End If
bInitialized = True
Catch
'Call Globals.ErrorMessage("Refresh")
Finally
'Free Up Memory
Call Marshal.FreeCoTaskMem(ptrBuffer)
Call Marshal.FreeCoTaskMem(ptrDomain)
If (hEnum > 0) Then hResult = WNetCloseEnum(hEnum)
If (hBuffer > 0) Then hResult = GlobalFree(hBuffer)
End Try
End Sub
|
|
|
|
|
Nevermind, I figured this out!
|
|
|
|
|
Hi
I'm writing COM add-in to MsProject2000. The problem is that using Project object I cannot change cursor that appear in MsProject app. I tried to change the cursor by WinAPI calls but I failed. Is this possible to change cursor in MsProject by executing some code from my add-in?
Mariusz Popiolek
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
