| How do I output the Text between 2 strings to a text file?HELP! |
|
 |
Index ‹ Visual Studio ‹ VB Scripts
|
- Previous
- 1
- Visual Basic >> Finding the mail serverI am trying to figure out how to programatically determine the
available or default mail server of a machine. I'm writing a small
app that sends emails through the system at various prompts, but I
will be installing it at locations with differing mail servers.
TIA
- 2
- Visual Basic >> Cartier Pasha Seatimer Steel Mens Watch W31080M7 ReplicaCartier Pasha Seatimer Steel Mens Watch W31080M7 Replica, Fake, Cheap,
AAA Replica watch
Cartier Pasha Seatimer Steel Mens Watch W31080M7 Link :
http://www.aaa-replica-watch.com/cartier_w31080m7.html
Buy the cheapest Cartier Pasha Seatimer Steel Mens Watch W31080M7 in
toppest Replica . www.aaa-replica-watch.com helps you to save money!
cartier-w31080m7 , Cartier Pasha Seatimer Steel Mens Watch W31080M7 ,
Replia , Cheap , Fake , imitation , Cartier Watches
Cartier Pasha Seatimer Steel Mens Watch W31080M7 Information :
Brand : Cartier Watches (http://www.aaa-replica-watch.com/
Replica_Cartier.html )
Gender : Mens
Model : cartier-w31080m7
Case Material : Stainless Steel
Case Diameter : W31080M7, Cartier-W31080M7
Dial Color : Silver
Bezel : Fixed
Movement : Automatic
Clasp : Stainless Steel
Water Resistant : 100m/330ft
Crystal : Scratch Resistant Sapphire
Our Price : $ 225.00
Silver dial. Self Winding Automatic Calibre 49 Movement. Luminescent
Diamond Shaped Steel Hands. Steel Screw Down Crown Cover. 7"
Adjustable Bracelet. Stainless Steel case. 40.5mm (1.5") dial.
Deployment Buckle clasp. 100 Meters / 330 Feet Water Resistant.
Scratch Resistant Sapphire Crystal.
Cartier Pasha Seatimer Steel Mens Watch W31080M7 Replica, With the mix
of finest craftsmanship and contemporary styling, not only does it
reflect the time but also care you put into looking good. choose one
to promote your quality and make yourself impressive among people
Thank you for choosing www.aaa-replica-watch.com as your reliable
dealer of quality waches including Cartier Pasha Seatimer Steel Mens
Watch W31080M7 . we guarantee every watch you receive will be exact
watch you ordered. Each watch sold enjoy one year Warranty for free
repair. Every order from aaa-replica-watches is shipped via EMS, the
customer is responsible for the shipping fee on the first order, but
since the second watch you buy from our site, the shipping cost is
free. Please note that If the total amount of payment is over
$600(USD), the customer is required to contact our customer service
before sending the money in case failed payment. If you have any other
questions please check our other pages or feel free to email us by
service@aaa-replica-watch.com.
The Same Cartier Watches Series :
Cartier 21 Chronoscaph Unisex Watch W10198U2 :
http://www.aaa-replica.com/Cartier_21_Unisex_Watch_W10198U2.html
Cartier 21 Chronoscaph Unisex Watch W10197U2 :
http://www.aaa-replica.com/Cartier_21_Unisex_Watch_W10197U2.html
Cartier Must 21 Two-Tone Steel Ladies Watch W10073R6 :
http://www.aaa-replica.com/Cartier_W10073R6.html
Cartier Must 21 Steel Ladies Watch W10109T2 :
http://www.aaa-replica.com/Cartier_W10109T2.html
Cartier Must 21 Chronoscaph Unisex Watch W10184U2 :
http://www.aaa-replica.com/Cartier_W10184U2.html
Cartier Must 21 Chronoscaph Mens Watch W10125U2 :
http://www.aaa-replica.com/Cartier_W10125U2.html
Cartier Must 21 Chronoscaph Mens Watch W10172T2 :
http://www.aaa-replica.com/Cartier_W10172T2.html
Cartier Must 21 Steel Mens Watch W10110T2 :
http://www.aaa-replica.com/Cartier_W10110T2.html
Cartier Must 21 Two-Tone Steel Mens Watch W10072R6 :
http://www.aaa-replica.com/Cartier_W10072R6.html
Cartier Tank Solo Steel Orange Alligator Ladies Watch W1019455 :
http://www.aaa-replica.com/Cartier_W1019455.html
Cartier Tank Solo Steel White Alligator Ladies Watch W1019555 :
http://www.aaa-replica.com/Cartier_W1019555.html
Cartier Tank Solo 18kt Yellow Gold Mens Watch W1018855 :
http://www.aaa-replica.com/Cartier_W1018855.html
- 3
- MFC >> How to create CDialog from different DLL?Hello,
Iâ??m trying to create a CDialog object, which is defined in one DLL from a
class in another DLL.
The dialog appears to be successfully created but its handle is invalid,
when Iâ??m trying to use "this" the application crashes with a debug assertion
at wincore.cpp "LookupPermanent".
Do you have any suggestion how to solve this problem?
Thanks,
Limor
- 4
- Visual Basic >> HtmlHelp reload same fileHello to all, I have the following problem:
I call for the first time:
Call HtmlHelp(hWnd, "helpITA.chm", HH_HELP_CONTEXT, dwData)
and it appears a window with the Italian Help
then, I call for the second time
Call HtmlHelp(hWnd, "helpENG.chm", HH_HELP_CONTEXT, dwData)
and it appears a window with the same italian help and not english
help.
HtmlHelp seems to not load another file.
Can anyone help me?
thank you
Luca
- 5
- Visual Basic >> VB trusted or not trusted with Outlook2003Hi
This is probably not a VB issue, but this is by far the best place to ask
questions.
My Customer has upgraded some of it's clients to Outlook2003 and since then
each client gets some extra warnings when running my application.
The warning starts like: "A program is trying to access e-mail addresses
you have stored in Outlook" and then there are some options to let it pass or
not.
(since these users have VERY limited rights they have to respond to this
warning every time the app needs to interact with Outlook)
I found some articles on MSDN regarding this but I cannot fully understand
exactly how to resolve it; apparantly someone must make my application a
trustee with Outlook2003 !!!!
Anyway: My questions are these;
Is it on my side or on my customers side this "trustee" configuration must
take place?
Which part of my application is it that must be a trustee ??
(In the articles it's refered to some COM's, I'm not sure what this means)
Rgds
Kjell
- 6
- Visual Basic >> Automatically Insert Line Labels for ErlDoes anyone know of any freeware or shareware code for inserting line
numbers in code?
I love using the Erl function (Feature, statement, whatever the thing is
called. It's not documented anymore) but I hate inserting the line numbers
"by hand".
TIA
- 7
- Visual Basic [VB] >> Mismatch between sample code and wizard skeleton/starting point ?I have a question regarding code examples in the msdn cd.
For example I will refer to the help page titled
"Using TCP Services"
As we can see, the code below is supposed to be for
a console application. My question is this: if I create
a console application with the wizard, I get a Main
sub which is inside Module1, whereas here, in the
sample, main is in a class called TcpTimeClient.
I.e. there is some implicit understanding here that one
would know how to insert this sample into the basic
template that the Console Application wizard gives
us. Is this mentioned anywhere ?
[Visual Basic]
Imports System
Imports System.Net.Sockets
Imports System.Text
Public Class TcpTimeClient
Private const portNum As Integer = 13
Private const hostName As String = "host.contoso.com"
' Entry point that delegates to C-style main Private Function.
Public Overloads Shared Sub Main()
System.Environment.ExitCode = _
Main(System.Environment.GetCommandLineArgs())
End Sub
Overloads Public Shared Function Main(args() As [String]) As Integer
Try
Dim client As New TcpClient(hostName, portNum)
Dim ns As NetworkStream = client.GetStream()
Dim bytes(1024) As Byte
Dim bytesRead As Integer = ns.Read(bytes, 0, bytes.Length)
Console.WriteLine(Encoding.ASCII.GetString(bytes, 0, bytesRead))
Catch e As Exception
Console.WriteLine(e.ToString())
End Try
client.Close()
Return 0
End Function 'Main
End Class 'TcpTimeClient
- 8
- Visual Basic [VB] >> image and notifyicon problemHi,
I need to change the notifyicon in a countdown. after about 3000-5000 times
there is an error.
Here is all the code. what is wrong
please help
the code needs only an notifyicon and an imagelist the timer is for changing
the icon
Jan
'start code---------------------------------
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon
Friend WithEvents Timer1 As System.Windows.Forms.Timer
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
'
'ImageList1
'
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
'
'NotifyIcon1
'
Me.NotifyIcon1.Text = "NotifyIcon1"
Me.NotifyIcon1.Visible = True
'
'Timer1
'
Me.Timer1.Enabled = True
Me.Timer1.Interval = 5
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 273)
Me.Name = "Form1"
Me.ShowInTaskbar = False
Me.Text = "Form1"
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
sBuild_100_Icons()
End Sub
Sub sBuild_100_Icons()
Dim rect As Rectangle = New Rectangle(0, 0, 32, 32)
Dim displayGraphics As Graphics = Me.CreateGraphics()
Dim img As Image = New Bitmap(rect.Width, rect.Height, displayGraphics)
Dim imageGraphics As Graphics = Graphics.FromImage(img)
Dim bcolor As Brush = New
SolidBrush(Color.FromKnownColor(KnownColor.Control))
Dim cColor As Color = Color.Red
Dim fnt As New Font(Me.Font.Name, 16, FontStyle.Bold)
For X As Byte = 0 To 99
imageGraphics.FillRectangle(bcolor, rect)
imageGraphics.DrawString(Format(X, "00"), fnt, New SolidBrush(cColor), 0, _
(rect.Height - imageGraphics.MeasureString(Format(X, "00"), fnt).Height) /
2)
Dim mybitmap As Bitmap = img
Dim hIcon As IntPtr = mybitmap.GetHicon
ImageList1.Images.Add(Icon.FromHandle(hIcon))
Next
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
Static Teller As Int64
Try
Teller += 1
Catch ex As Exception
Teller = 0
End Try
Dim mybitmap As Bitmap = ImageList1.Images(Teller Mod 100) 'I have tryed
many mod values
'te next line gives an error by the 3000-5000° times
Dim hIcon As IntPtr = mybitmap.GetHicon
NotifyIcon1.Icon = Icon.FromHandle(hIcon)
Dim sw As New System.IO.StreamWriter("teller.txt", True)
sw.WriteLine(Teller)
sw.Close()
End Sub
End Class
- 9
- MFC >> Indexing serviceHi,
Using Indexing service, I am trying to get the properties of file(s),
based on the search criteria.
Can anyone help me to do this using the API, in vc++ 6.0.
thank u.
- 10
- 11
- Visual Studio C++ >> exception won't catchI have an MFC application that runs off a network drive. It uses an
Oracle database, and the server is also on the network. The problem I'm
having is that if a workstation loses connection to the network during a
work session, the application will crash when trying to save data back
to the database. "Crash" being that the app simply terminates and goes
back to Windows desktop.
The data save code is wrapped within try / catch blocks. If I run the
application locally from my C drive, the exception is caught and handled
gracefully. But when running from the network, the catch block isn't
being called. I know this because there is a MessageBox that should
notify the user of a problem, and it doesn't come up.
So my question is, why does this happen? And what's the most elegant way
to get around it? If I can't get the catch to execute on failure, then
I'll need another method of knowing that the LAN is present before
trying to save.
Thanks for any ideas.
- 12
- Visual Basic [VB] >> Newbie Keypress QuestionDoes anyone know how to remove keypress events at form level before
they are passed onto individual controls?
For example I have a text box in my form. I set keypreview to true.
In VB 6 when I received the form_Keypress I would set the keyascii =
0. This way the text box didn't get the keypress. Is there a way to
do the same thing in vbDotNet?
TIA
Terry
- 13
- Visual Basic [VB] >> socket.EndAccept(ar) is Exclusive....any way to change?Hi, im making an AIM like server using TCP sockets, however i found a big
issue. when a socket is connected to (socket.EndAccept(ar)), its already
bound to a Port. since its bound, i cannot change its access to non
exclusive, but i need this port to still be open because i may need another
socket to connect on this port as well. how can i achieve this?
--
-iwdu15
- 14
- Visual Basic >> Time Function ProblemI can get the Date function to work but the time Function returns the
following error at the line MyTime = Time
Run time error 450 Wrong number of arguments or invalid property assignment
Here is my code:
Private Sub cmdClickHere_Click()
Dim MyDate As Date
MyDate = Date
lblTime.Caption = MyDate
End Sub
'The above works and returns the correct value
Private Sub cmdClickHere2_Click()
Dim MyTime As Variant
MyTime = Time
lblTime2.Caption = MyTime
End Sub
'This Crashes
What am I doing wrong??
If I set the Dim MyTime as Time it still crashes with the following message:
Compile Error: Function or interface marked as restricted or the function
uses an automation type not supported in Visual Basic.
- 15
- MFC >> fprintfMy application runs fine on a laptop with Windows 2000,
SP2, but when I run it on my PC with Windows 2000, SP3, I
get an fprintf error message that terminates the
application. The exact error is:
File: fprintf.c
Line: 56
Expression: str != NULL
Any suggestions??
|
| Author |
Message |
Idiot_idiot
|
 Posted: Sat Feb 04 15:52:07 CST 2006 |
Top |
VB Scripts >> How do I output the Text between 2 strings to a text file?HELP!
I am trying to output the text between two strings , i giot to wite a
routine somthing as shown,but the output text file is BLANK!What am I
doing wron?I am new to VB script...Please Help!
Ajay
startstring = "ASSOCIATION TOTALS BY ACCOUNT TYPE"
endstring = "TOTAL""
sData = ReadFile("C:\Documents and Settings\Owner.AJAYGARG\My_
Documents\ASSOCIATION TOTALS BY ACCOUNT TYPE.doc")
startposition = InStr(sData, startstring)
sData = Left(sData, startposition)
endposition = InStr(sData, endstring) + Len(endstring) - 1
sData = Left(sData, endposition)
WScript.echo sData
Function ReadFile(FilePath)
'Given the path to a file, will return entire contents
' works with either ANSI or Unicode
Dim FSO, CurrentFile
Const ForReading = 1, TristateUseDefault = -2, _
DoNotCreateFile = False
Set FSO = createobject("Scripting.FileSystemObject")
If FSO.FileExists(FilePath) Then
If FSO.GetFile(FilePath).Size>0 Then
Set CurrentFile = FSO.OpenTextFile(FilePath, ForReading, _
False, TristateUseDefault)
If CurrentFile.AtEndOfStream <> True Then
ReadFile = CurrentFile.ReadAll
WriteFile "C:\Documents and Settings\Owner.AJAYGARG\My
Documents\ASSOCIATION TOTALS BY ACCOUNT TYPEf.doc", outData
: CurrentFile.Close
End If
End If
End If
End Function
Sub WriteFile(FILEPATH, sData)
'writes sData to FilePath
With CreateObject("Scripting.FileSystemObject")._
OpenTextFile(FilePath, 2, True)
.Write sData: .Close
End With
End Sub
Visual Studio149
|
| |
|
| |
|
\
|
| Posted: Sat Feb 04 15:52:07 CST 2006 |
Top |
VB Scripts >> How do I output the Text between 2 strings to a text file?HELP!
> I am trying to output the text between two strings , i giot to wite a
> routine somthing as shown,but the output text file is BLANK!What am I
> doing wron?I am new to VB script...Please Help!
The output file is blank because you are writing undefined data to it. Even if
that were not true, you are writing data to the file before it has been
modified, and even if it were modified, it would be wrong. :-)
The way to write successful script is one step at a time, especially if you are
new at it. Keep it simple and don't try to combine everything into one big
kluge. This is not the place for a complete tutorial or step by step analysis of
your script. I have rewritten it so that it should work, but I have no way to
test it under actual working conditions.
--
Crash
'---------------------------------------------------------------------------
startstring = "ASSOCIATION TOTALS BY ACCOUNT TYPE"
endstring = "TOTAL"
Set fso=CreateObject("Scripting.FileSystemObject")
sData = ReadFile("C:\Documents and Settings\Owner.AJAYGARG\My "_
& "Documents\ASSOCIATION TOTALS BY ACCOUNT TYPE.doc")
if len(sData) then
startposition = InStr(sData, startstring)
endposition=inStrRev(sData,endstring)
if startposition>0 AND endposition>0 then
sData=mid(sData,startposition+len(startstring),_
endposition-(startposition+len(startstring)))
end if
WriteFile "C:\Documents and Settings\Owner.AJAYGARG\My "_
& "Documents\ASSOCIATION TOTALS BY ACCOUNT TYPEf.doc", sData
end if
Set fso=nothing
Function ReadFile(FilePath)
ReadFile=""
If fso.FileExists(FilePath) Then
If fso.GetFile(FilePath).Size>0 Then
Set CurrentFile = fso.OpenTextFile(FilePath)
ReadFile = CurrentFile.ReadAll
CurrentFile.Close
End If
End If
End Function
Sub WriteFile(FilePath,data)
Set outFile=fso.CreateTextFile(FilePath)
outFile.write data
outFile.close
end sub
|
| |
|
| |
|
RodeCa
|
| Posted: Wed Feb 08 07:06:11 CST 2006 |
Top |
VB Scripts >> How do I output the Text between 2 strings to a text file?HELP!
But true problem is (at least ;-):
> startposition = InStr(sData, startstring)
> sData = Left(sData, startposition) ' *** LEFT. Sure?
your new sData contains *from beginning to startstring*: you have discarded
from that point to end
--
HIH
RØ
"AG" <EMail@HideDomain.com> escribió en el mensaje
news:EMail@HideDomain.com...
>I am trying to output the text between two strings , i giot to wite a
> routine somthing as shown,but the output text file is BLANK!What am I
> doing wron?I am new to VB script...Please Help!
>
>
>
> Ajay
> startstring = "ASSOCIATION TOTALS BY ACCOUNT TYPE"
> endstring = "TOTAL""
>
> sData = ReadFile("C:\Documents and Settings\Owner.AJAYGARG\My_
> Documents\ASSOCIATION TOTALS BY ACCOUNT TYPE.doc")
>
>
> startposition = InStr(sData, startstring)
> sData = Left(sData, startposition)
> endposition = InStr(sData, endstring) + Len(endstring) - 1
> sData = Left(sData, endposition)
>
>
> WScript.echo sData
>
>
> Function ReadFile(FilePath)
> 'Given the path to a file, will return entire contents
> ' works with either ANSI or Unicode
> Dim FSO, CurrentFile
> Const ForReading = 1, TristateUseDefault = -2, _
> DoNotCreateFile = False
> Set FSO = createobject("Scripting.FileSystemObject")
> If FSO.FileExists(FilePath) Then
> If FSO.GetFile(FilePath).Size>0 Then
> Set CurrentFile = FSO.OpenTextFile(FilePath, ForReading, _
> False, TristateUseDefault)
> If CurrentFile.AtEndOfStream <> True Then
> ReadFile = CurrentFile.ReadAll
> WriteFile "C:\Documents and Settings\Owner.AJAYGARG\My
> Documents\ASSOCIATION TOTALS BY ACCOUNT TYPEf.doc", outData
> : CurrentFile.Close
> End If
> End If
> End If
> End Function
>
> Sub WriteFile(FILEPATH, sData)
> 'writes sData to FilePath
> With CreateObject("Scripting.FileSystemObject")._
> OpenTextFile(FilePath, 2, True)
> .Write sData: .Close
> End With
> End Sub
>
|
| |
|
| |
|
| |
|
Index ‹ Visual Studio ‹ VB Scripts |
- Next
- 1
- Visual Basic [VB] >> enable tabcontrolon my form I have a checkbox and a tab control when the checkbox is true I
wish to enable the controls on a single page of the tab control, is this
possible or do I need to enable each control on the tab control page.
if you could supply and example of code it would be much appreciated
thanks phil
- 2
- Visual Basic [VB] >> Unable to access c# code from VB.NET in the same solutionThis is a little puzzling,
I have a solution (SolutionA)
and have about 14 Projects in it that are VB.NET
I have to use some code which is C# and thought I could just add a reference
and use that to call the methods in the file. Seeems not to be the case, I
have added the reference but the project's classes or project reference does
not show up on the autolist that imports gives.
essentially the solution doesn't see the csharp class.
any ideas?
- 3
- MFC >> Message which is called everytime a CFormView is createdHallo,
I have a program with a CSplitterWnd which divides 2 CFormViews.
See link: http://wwwstud.fh-zwickau.de/~pafe/geb/1.jpg
When I start the program the ListBox (CListView) on the right side
gets filled in the method OnInitialUpdate().
When I navigate through the tree then the views on the right side are
replaced.
When I come back to the element, that displays the form with the
List-Box, my ListBox is not filled with the data I provide in
OnInitialUpdate.
See link: http://wwwstud.fh-zwickau.de/~pafe/geb/2.jpg
Now my question is:
Where do I have to put the code (what message do I have to catch) to
get the ListBox filled everytime I select the corresponding
tree-element.
Thx 4 ur help
Pedde
- 4
- VB Scripts >> Variables from one script to anotherHi...
I posted this before, but probably didn't explain my self well...
I need to have a script that declares and sets a value for some vb
variables, and want to have the value in these variables available in other
script...
Here is what I do :
I have a master script that calls other scripts...
1st script called from master script, it declares and sets values for some
variables ...
ex : Public appver1
appver1 = "V9_4_2"
2nd script called from master script would use the variables set in 1st
script to do execute actions with it...
ex : WshEnv("Var1") = appver1
How can this be done ...
The value is "appver1" is not necessary outside of the vb environment...
Reason is that 1st script will be modified by a lot of people, but don't
want them to modify other script...
Thanks very much !!!
--
--
Houman Yahyaei ( CCNA, MCSE Win 2000/NT 4.0, MCT )
IT Training and Consulting
www.formationhy.com
Houman@formationhy.com
- 5
- MFC >> newbie quesion on missing clw fiileHi,
I downloaded several VC++ projects from Internet, I am able to open them
using VC++ 6.0, but when I tried to open class wizard, I got error message
that the clw file is missing, do I want to build it from the source files.
When I click yes, I saw all the .cpp, .h ... My quesion is, which files
should I choose to build the clw file?
TIA
- 6
- MFC >> Multithreading, Converting a Byte Array to a Hex String, Simultaneously..So.. my problema: I'm reading in a massive amount of data into a BYTE
array buffer (size 64096 bytes, and about 1MB every 5 seconds) and
writing to a file. I want to grab the info, translate it into hex, and
spit it back out on the screen to display what I am receiving. So far
I have a thread doing the receiving and writing to file, and another
thread which is supposed to be translating and spitting out to a
multiline edit box.
This is probably not a good way to do it, and I was wondering if anyone
knew a better way?
Thx,
kefkastudio
- 7
- Visual Basic >> PDW Msg "...already been added..."When packaging my project, I am asked to "choose the folder where your
package will be assembled." I click the "New Folder" icon and make a folder
and select next. There is a processing delay (only 550MHz machine) and the
drive rattles, then I am prompted with "Afile with this name has already
been added to the list of files." You only have the choice to click OK.
Does anyone know what causes this message?
Regards,
Jim
- 8
- 9
- 10
- VB Scripts >> Accessing a c#.net created COM object in vbscript...Hey guys.
How do I access a COM object in vbscript?
I created the object using c#, but am unsure :
- which guid to use
- which object id
- whether i should use the <OBJECT> tag at all
- how to handle create object...
my structure for the COM object is as follows ( created following the
tutorial found at http://www.csharphelp.com/archives/archive281.html )
//----------------------------------------- start c# code
namespace BIF_COM_API
{
//
// Interface Declaration
//
[Guid("49B9D855-182A-4064-A362-95D7D10C4E15")]
public interface BIF_Interface
{
//
// DispId declarations
//
}
//
// Events Interface
//
[Guid("09603A1F-E672-4460-9F66-D012CE9F9842"),
InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
public interface BIF_Events
{
}
//
// COM object instantiation
//
[Guid("1995FED2-2C21-4659-A5E4-B832C0BD4434"),
ClassInterface(ClassInterfaceType.None),
ComSourceInterfaces(typeof( BIF_Events ))]
public class BIF_Instantiation : BIF_Interface
{
//
// class implementation
//
}
}
//----------------------------------------- end code
and my current vbscript code is
//----------------------------------------- vbscript code
<!-- header stuff -->
<SCRIPT LANGUAGE="VBScript">
<!--
option explicit
sub VB_Click
Dim bifapi
bifapi = CreateObject ( "BIF_Instantiation" )
' error here, can't create
object
bifapi.SetDestinationQueueName "Local_In"
bifapi.Send
end sub
-->
</SCRIPT>
</HEAD>
<OBJECT
classid="clsid:49B9D855-182A-4064-A362-95D7D10C4E15"
id=BIF_COM_API.BIF_Interface
VIEWASTEXT>
</OBJECT>
<BODY>
<!-- body stuff.... -->
//----------------------------------------- end code
thanks for your help in anticipation.
Daniel.
- 11
- MFC >> Tooltip causes an ASSERT() in a child dialog boxHello experts,
I already posted about my problem a couple of days ago, but it's not
solved yet and I have some more details about it.
Using MS VC 6.0 and Vista.
I create a CTabCtrl control in a dialog box. For each tab, a child
dialog box contains a bunch of controls (CEdit, CComboBox...). I can
display tooltips for each control, no problem.
The problem is that when the cursor (I mean the mouse) leaves a
control, if it enters the tooltip area, I get an ASSERT() warning:
In WinCore.cpp
void CWnd::AssertValid() const
{
...
// should be a normal window
ASSERT(::IsWindow(m_hWnd));
...
}
This occurs only when the dialog boxes displayed in the tabs are CHILD
dialog boxes. If I choose "Overlapped" or "Popup", it works (but I
need a child dialog box).
What should I do to avoid this problem?
TXS
Phil
- 12
- Visual Studio C++ >> Seeking opinions of best practice on splitter windowsHello
When having a splitter window, i.e. a window that is about 5 pixels wide and
goes between the left-hand treeview and the right hand control, be it mdi
client window or listview or whatever, is it generally preferred practice to
have the left and right windows resize as the user is dragging the splitter
window, or to wait until the splitter window is dropped.
I notice that most Microsoft applications (e.g. Windows Explorer, Outlook
Express) go for the former, however it seems Visual Studio .NET adopts the
latter strategy.
I've coded my application so that it works like Visual Studio .NET. However
I can't make the splitter window adopt that transparent-gray crosshatch
pattern when it is being dragged, anybody know off-hand what the background
needs setting to to make it like that?
And also, which is the 'best-practice' method, or doesn't it generally
matter either way?
- 13
- Visual Basic [VB] >> Class controling form settingsI am wondering if it is possible to make something like the following work:
Public Class myTestSettings
Public Property onTop() As Boolean
Get
Return Form1.CheckBox1.Checked
End Get
Set(ByVal Value As Boolean)
Form1.CheckBox1.Checked = Value
End Set
End Property
End Class
Second question: if it is possible, is it advisable?
I am wanting to serialize this information to an XML file. I'm exploring
this as a possibly better way to accomplish this.
Thanks in advance,
Matthew
- 14
- Visual Basic >> Print preview and print for picture controlI have a form that acts as a container for a picture control. I am
drawing pictures in the picture control, and would like to add print
preview and print functionality - but I don't know how to do this.
i would be grateful if someone could provide a code snippet that shows
how I may ;
1). print preview an image displayed in a picture control
2). print the image displayed in the picture control
- 15
- Visual Basic [VB] >> Using VB 6.0 Interface in vb.net causes a problemHi,
I have an interface in vb 6.0. It has a property set member, which takes a
parameter by reference. When I try to implement this interface in my vb.net
project it gives me an error saying that "cannot implement property set
because there is no matching property on interface". I think .NET does not
allow parameter to be passed ByRef in property statements.
here is my property set statement in vb 6.0 interface called IName
Property Set Name(ByRef objName as object)
End Property
VB.NET code looks like this
Public WriteOnly Property Name() as System.IntPtr implements IName.Name
Set (ByVal value as System.IntPtr)
end set
End Property
There is an underline below IName.Name. When I put my mouse over it then it
says "Cannot implement IName.Name because there is no matching property on
Interface IName". I tried changing the System.IntPtr to System.Object but it
gives the same result. I cannot change vb 6.0 interface to accept parameter
ByVal instead of ByRef because then, I have to change all other existing
components that already are implementing this interface.
Your help is appreciated.
Thanks
|
|
|