| resource-only DLL and LNK2019 error!! |
|
 |
Index ‹ Visual Studio ‹ MFC
|
- Previous
- 1
- Visual Basic >> Program Version NumberIn Project Properties in Version Number I see: Major 12, Minor 1, Revision
10.
When I compile my project and via EXE's properties I see Version 12.1.0.10
Where 0 does come from?
Is there any place in VB environment to control that third place in version
number? Now it's always 0.
Thank you
vovan
- 2
- 3
- Visual Basic [VB] >> Need a palette expert hereBelow is a small but complete program that appears to show you
can't retrive a Palette from the clipboard.
This is true whether the palette is placed on the clipboard by Photoshop or
Photoshop or by the below program
It lets you place a palette from a file or from a program on the clipboard
and allows you to retrieve one from the clipboard. But you'll find the
retrieved one is always "Nothing"
I'd appreciate comments
Imports System.Drawing.Imaging
Public Class Form1
Inherits System.Windows.Forms.Form
Private WithEvents button1 As System.Windows.Forms.Button
Private WithEvents button2 As System.Windows.Forms.Button
Private WithEvents button3 As System.Windows.Forms.Button
Private components As System.ComponentModel.IContainer
Private cp As ColorPalette
Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Public Sub New()
InitializeComponent()
End Sub 'New
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 'Dispose
#Region "Windows Form Designer generated code"
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Me.button1 = New System.Windows.Forms.Button
Me.button2 = New System.Windows.Forms.Button
Me.button3 = New System.Windows.Forms.Button
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.TextBox2 = New System.Windows.Forms.TextBox
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.SuspendLayout()
'
'button1
'
Me.button1.Location = New System.Drawing.Point(186, 124)
Me.button1.Name = "button1"
Me.button1.Size = New System.Drawing.Size(130, 24)
Me.button1.TabIndex = 2
Me.button1.Text = "Copy File Palette"
Me.ToolTip1.SetToolTip(Me.button1, "Copy Palette from a GIF file to the
clipboard")
'
'button2
'
Me.button2.Location = New System.Drawing.Point(13, 124)
Me.button2.Name = "button2"
Me.button2.Size = New System.Drawing.Size(156, 24)
Me.button2.TabIndex = 2
Me.button2.Text = "Retrieve Clipboard Palette"
Me.ToolTip1.SetToolTip(Me.button2, "Retrieve a palette from the clipboard")
'
'button3
'
Me.button3.Location = New System.Drawing.Point(88, 167)
Me.button3.Name = "button3"
Me.button3.Size = New System.Drawing.Size(130, 24)
Me.button3.TabIndex = 2
Me.button3.Text = "Exit"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(12, 24)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(304, 47)
Me.TextBox1.TabIndex = 3
Me.TextBox1.Text = "Palette can be placed on clipboard by using the 'Save
Palette"" button or by some " & _
"external program such as Photoshop"
'
'TextBox2
'
Me.TextBox2.Location = New System.Drawing.Point(13, 85)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(302, 20)
Me.TextBox2.TabIndex = 4
'
'Timer1
'
Me.Timer1.Enabled = True
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(328, 204)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.button1)
Me.Controls.Add(Me.button2)
Me.Controls.Add(Me.button3)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub 'InitializeComponent
#End Region
<STAThread()> Shared Sub Main()
Application.Run(New Form1)
End Sub 'Main
Private Sub button1_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles button1.Click
Dim dlg As New OpenFileDialog
dlg.Filter = "GIF files|*.GIF"
If dlg.ShowDialog() = DialogResult.OK Then
Dim zz As Image = Image.FromFile(dlg.FileName)
Dim DataO As New DataObject
DataO.SetData(DataFormats.Bitmap, False, CType(zz, Bitmap))
DataO.SetData(DataFormats.Palette.ToString, False, zz.Palette)
Clipboard.SetDataObject(DataO, False)
End If
End Sub 'button1_Click
Private Sub button2_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles button2.Click
Dim DataO As DataObject = CType(Clipboard.GetDataObject(), DataObject)
If DataO.GetDataPresent(DataFormats.Palette, False) Then
cp = CType(DataO.GetData(DataFormats.Palette), ColorPalette)
If cp Is Nothing Then
MessageBox.Show("Contains palette that is Nothing")
Else
MessageBox.Show(cp.ToString)
End If
Else
MessageBox.Show("No Palette on Clipboard")
End If
End Sub 'button2_Click
Private Sub button3_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles button3.Click
Application.Exit()
End Sub 'button3_Click
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs)
Handles Timer1.Tick
Dim DataO As DataObject = CType(Clipboard.GetDataObject(), DataObject)
If DataO.GetDataPresent(DataFormats.Palette, False) Then
Dim cp As ColorPalette = CType(DataO.GetData(DataFormats.Palette),
ColorPalette)
TextBox2.Text = "There is a Palette on the Clipboard"
Else
TextBox2.Text = "The Clipboard does not contain a Palette"
End If
End Sub
End Class 'Form1
- 4
- MFC >> ModifyMenuI want to modify the menus, if the user has selected a new languages.
With the Popup- menus in the menu-bar I can do this with
ModifyMenu(..,<level>,MF_BY_POSITION,<level>,<new string>).
In the submenus I can do this with
ModifyMenu(..,<id>,MF_BY_COMMAND,<id>,<new string>).
All this works fine. Sometimes I have also a POPUP for a submenu
within a submenu. In this case a have no identifier, which
with I can change the text. And I cannot use the "MF_BY_POSITION", because
this
works only for menus, but not for submenus.
Who can help me?
Andreas
- 5
- MFC >> Resource leakThis is a multi-part message in MIME format.
------=_NextPart_000_0022_01C39EFE.09B31940
Content-Type: text/plain;
charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable
What is wrong with this code?
CodeSnitch of Entrek (utility that allows profiling WinCE) emphasise the =
red line as a resourse leak.=20
Assuming that in my test application there is no use of the m_Brush, =
this leak is really weird.
Somebody can explane it?
CPOEApp::CPOEApp(LPCTSTR lpszAppName): CWinApp(lpszAppName)
{
m_Brush.CreateSolidBrush(TOP_LABEL_COLOR); //resource leak
}
CPOEApp::~CPOEApp()
{
m_Brush.DeleteObject();
}
Stas K
------=_NextPart_000_0022_01C39EFE.09B31940
Content-Type: text/html;
charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Dwindows-1252">
<META content=3D"MSHTML 6.00.2800.1264" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY dir=3Dltr>
<DIV>
<P><FONT face=3DArial size=3D2>What is wrong with this code?</FONT></P>
<P><FONT face=3DArial size=3D2>CodeSnitch of Entrek (utility that allows =
profiling=20
WinCE) emphasise the red line as a resourse leak. </FONT></P>
<P><FONT face=3DArial size=3D2>Assuming that in my test application =
there is no use=20
of the m_Brush, this leak is really weird.</FONT></P>
<P><FONT face=3DArial size=3D2>Somebody can explane it?</FONT></P>
<P><FONT face=3DArial size=3D2>CPOEApp::CPOEApp(LPCTSTR lpszAppName):=20
CWinApp(lpszAppName)</FONT></P>
<P><FONT face=3DArial size=3D2>{</FONT></P>
<P><FONT face=3DArial size=3D2> <FONT=20
color=3D#ff0000><STRONG>m_Brush.CreateSolidBrush(TOP_LABEL_COLOR); =
//resource=20
leak</STRONG></FONT></FONT></P>
<P><FONT face=3DArial size=3D2>}</FONT></P>
<P><FONT face=3DArial size=3D2>CPOEApp::~CPOEApp()</FONT></P>
<P><FONT face=3DArial size=3D2>{</FONT></P>
<P><FONT face=3DArial size=3D2> =
m_Brush.DeleteObject();</FONT></P>
<P><FONT face=3DArial size=3D2>}</FONT></P>
<P><FONT face=3DArial size=3D2>Stas K</FONT></P></DIV></BODY></HTML>
------=_NextPart_000_0022_01C39EFE.09B31940--
- 6
- Visual Studio C++ >> How can I make my subclass get the WM_DRAWITEM and WM_MEASUREITEM message?Hello, All:
I had wroten a programme which should redraw a CListBox and CListCtrl class,
But so strange, when I drag an object into a CDialog object, and setting a
member value to relate with the CListCtrl(or CListBox),then I changed the
member value's type into CMyListBox( or CMyListCtrl), By this time,I thought
it must can access the function which I inherited from the CListBox( or
CListCtrl),but I cannoot see my
void CMyListCtrl::OnMeasureItem(int nIDCtl, LPMEASUREITEMSTRUCT
lpMeasureItemStruct)
and
void CMyListCtrl::OnDrawItem(int nIDCtl, LPDRAWITEMSTRUCT lpDrawItemStruct)
were be called.
However, I found there's 3 types of different WM_DRAWITEM and
WM_MEASUREITEM's reaction function from the ClassView's "Add Window Handle",
I am not sure whether there's any different with them all.
Up till now, I think maybe there's something wrong with the CListCtrl's
type. Is there anybody who knows whether there's any problem with my
programme?And I also wanna get how different with these 3 types of
WM_DRAWITEM and WM_MEASUREITEM's reaction function.
The following is apart of my programme:
////
// TestDlg.h
///
class CTestDlg : public CDialog
{
// Construction
public:
...
CMyListBox m_ListBox;
...
}
///
// TestDlg.cpp
///
BOOL CTestDlg::OnInitDialog()
{
CDialog::OnInitDialog();
...
m_ListBox.AddString("FD");
// TODO: Add extra initialization here
return TRUE; // return TRUE unless you set the focus to a control
}
///
// MyListCtrl.h : header file
//
class CMyListCtrl : public CListCtrl
{
...
protected:
//{{AFX_MSG(CMyListCtrl)
afx_msg void OnMeasureItem(int nIDCtl, LPMEASUREITEMSTRUCT
lpMeasureItemStruct);
afx_msg void OnInsertitem(NMHDR* pNMHDR, LRESULT* pResult);
afx_msg void OnDrawItem(int nIDCtl, LPDRAWITEMSTRUCT lpDrawItemStruct);
//}}AFX_MSG
...
}
//
// MyListCtrl.cpp : implementation file
//
BEGIN_MESSAGE_MAP(CMyListCtrl, CListCtrl)
//{{AFX_MSG_MAP(CMyListCtrl)
ON_WM_MEASUREITEM()
ON_NOTIFY_REFLECT(LVN_INSERTITEM, OnInsertitem)
ON_WM_DRAWITEM()
//}}AFX_MSG_MAP
END_MESSAGE_MAP()
////////////////////////////////////////////////////////////////////////////
/
// CMyListCtrl message handlers
void CMyListCtrl::OnMeasureItem(int nIDCtl, LPMEASUREITEMSTRUCT
lpMeasureItemStruct)
{
// TODO: Add your message handler code here and/or call default
CListCtrl::OnMeasureItem(nIDCtl, lpMeasureItemStruct);
}
void CMyListCtrl::OnInsertitem(NMHDR* pNMHDR, LRESULT* pResult)
{
NM_LISTVIEW* pNMListView = (NM_LISTVIEW*)pNMHDR;
// TODO: Add your control notification handler code here
*pResult = 0;
}
void CMyListCtrl::OnDrawItem(int nIDCtl, LPDRAWITEMSTRUCT lpDrawItemStruct)
{
// TODO: Add your message handler code here and/or call default
CListCtrl::OnDrawItem(nIDCtl, lpDrawItemStruct);
}
Thanks in advance!
- 7
- VB Scripts >> help neededIm writing an bat file to rename an file with a new name, and i need to
get the ERRORLEVEL value from this bat file into an VBScript.
I m always getting an zero errorlevel when i run the bat file from the
script
My code is below...
BAT FILE
---------------------------------
@echo off
:: do something that sets errorlevel 1
REN fil fils
echo %ERRORLEVEL%
(this would return an 1 when run from dos prompt)
VBScript
-------------------------------------
Dim fso, wShell, i
Set wShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
i = wShell.Run ("C:\test1.bat", 1, True)
WScript.Echo i
(This should return 1, but returns only 0)
Y is this happening, is there anything wrong with my logic
Rajesh.N
- 8
- MFC >> oleacc problemhello!
i written apllication (Visual Studio .NET 2002) and have to launch it with
XP Embedded. when i try to start the application system error message "DLL
oleacc.dll not found" appears. i've attempted to use DELAYLOAD linker option
but it hase no effect. i attempted to use oleacc empty library, but have
received a message "access violation @0 read address 0".
i not used accessibility tools. is it possible to build the program without
using of oleacc.dll? thank you!
- 9
- 10
- Visual Basic [VB] >> A value copy, not reference, of SqlParameter?' Declare a new parameter object
Dim param() As SqlParameter = New SqlParameter(0) {}
' Set this to null and make it an InputOutput parameter
param(0) = New SqlParameter("@Something, DBNull.Value) ' Can also be
non-null, but sometimes is null
param(0).Direction = ParameterDirection.InputOutput
' But, before we begin, store a copy of the existing parameters into another
variable
Dim param2() As SqlParameter = New SqlParameter(0) {}
param2 = param
' Run the stored proc. The stored proc has an OUTPUT parameter which will
return a value to the caller
SqlHelper.ExecuteNonQuery("ConnStr", CommandType.StoredProcedure,
"dbo.MyStoredProc, param)
WHERE
MyStoredProc's @Something parameter is an OUTPUT parameter, and after the
stored proc is finished running, BOTH SqlParameters have the same value.
It looks like "param2 = param" is a reference copy. How can I copy by value
only so that, when the Output argument returns a value to the first
parameter, param2 does NOT have the same value. I want a value copy, not a
reference copy. How do I do that?
- 11
- MFC >> button controlhi all,
i'm developing an SDI application by eVC++.
now in the CView, i created a button object.
when i received a click on the button .
i want to notify back the CView to update the screen.
how can i do that?
thank you.
- 12
- Visual Basic >> Error while opening a recordsetHi,
I am getting error "Multiple step OLE DB operation generatied errors. Check
each status value" while opening a recordset with records of nearly 4300000.
The records are unique in the table.
I am using the below coding to open the recordset.
With Recordset
.CursorLocation = adUseServer
.Open SQL, Cn, adOpenKeyset, adLockReadOnly
End With
Please can any one help me in finding what's the issue that causes the
error.
Thanks
Valli
- 13
- Visual Basic [VB] >> Dynamically adding and iterating through webcontrolsHi everyone,
I created a page which contains a two-column table. The first column has a
bunch of labels, and the second a bunch of textboxes. Here's the code:
======================================================
Protected WithEvents Container As System.Web.UI.WebControls.PlaceHolder
Private Sub ConstructEditTable()
Container.Controls.Add(New LiteralControl("<table>" & vbNewLine))
Dim i As Integer
For i = 0 To rows
With Container.Controls
.Add(New LiteralControl("<tr>" & vbNewLine))
'Label column
.Add(New LiteralControl("<td>" & vbNewLine))
label = New Label
label.ID = "lbl" & i.ToString
label.Text = i.ToString
label.EnableViewState = True
.Add(label)
.Add(New LiteralControl("</td>" & vbNewLine))
'Textbox column
.Add(New LiteralControl("<td>" & vbNewLine))
txtTest = New TextBox
txtTest.ID = "txt" & i.ToString
txtTest.Width = Unit.Pixel(50)
txtTest.EnableViewState = True
.Add(txtTest)
.Add(New LiteralControl("</td>" & vbNewLine))
.Add(New LiteralControl("</tr>" & vbNewLine))
End With
Next
Container.Controls.Add(New LiteralControl("</table>" & vbNewLine))
End Sub
==========================================================
The problem I have is accessing the content of the textboxes after postback.
How do I iterate through the controls in Container? Basically, after
PostBack, I would like to display the same table but with labels in the
second column, instead of textboxes. These labels would display the content
of the textboxes entered prior to PostBack.
Any ideas anyone? Any suggestions would be greatly appreciated.
Cheers,
Dany.
- 14
- VB Scripts >> Adding TCP/IP Printer Ports and Drivers using a login scriptI've written a script to automatically add tcp/ip printer ports and drivers
based on the user's subnet. The script works fine as administrator or power
user however it will NOT work properly if the user has standard user rights.
I need some assistance working around this. I realize that I could use WMI
to do impersonation and add these ports and drivers. However, due to the
large size of the script and the fact that changing methodologies to WMI
would add probably 20+ lines of code per printer per function, there are 100+
functions with anywhere from 2-15 printers per branch function, I can't
realistically change. I'm using the prnport.vbs and rundll32 printui.dll
methodoligies to accomplish what I need. I've tried to build runas into the
script even passing credentials automatically and it still doesn't work
right. My inclination is that the rundll32 must run under an explorer
session that has admin or power user rights otherwise it fails with not
enough rights. Below is a sample of the code. Any help you can provide
would be great!
Dim oIP, r
On Error Resume Next
oIP = DefaultGateway
Select Case oIP
Case "10.207.127.1"
Set oShell = WScript.CreateObject("WScript.Shell")
r = oShell.RegRead("HKLM\SOFTWARE\Printers\judesk\Installed")
If r <> 1 Then
AddPrintersjudesk
End If
End Select
Function DefaultGateway()
Dim oDG, oDGs, WMI
Set WMI = GetObject("winmgmts:\\.\root\cimv2")
Set oDGs = WMI.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each oDG in oDGs
If Not IsNull(oDG.DefaultIPGateway) Then
If Not oDG.DefaultIPGateway(0) = "0.0.0.0" Then
DefaultGateway = oDG.DefaultIPGateway(0)
Exit For
End If
End If
Next
End Function
Function AddPrintersJUDesk()
'prndriver1 = """QMS ColorScript Laser 1000"""
'prndriver2 = """Kyocera Mita FS-3700"""
prndriver3 = """IBM InfoPrint 20"""
'prndriver4 = """HP LaserJet 4"""
'prndriver5 = """SHARP AR-M277 PCL5e"""
prndriver6 = """Kyocera FS-5900C (KPDL-2)"""
'prndriver7 = """HP LaserJet 5Si"""
'prndriver8 = """HP LaserJet 4100 PCL 5e"""
oShell.Run "cmd /c cscript c:\windows\system32\prnport.vbs -a -r
IP_172.18.102.10 -h 172.18.102.10 -o raw -n 9100"
oShell.Run "cmd /c rundll32 printui.dll,PrintUIEntry /if /b P6154001 /f
%windir%\inf\ntprint.inf /r IP_172.18.102.10 /m " & prndriver1
oShell.Run "cmd /c cscript c:\windows\system32\prnport.vbs -a -r
IP_172.18.102.11 -h 172.18.102.11 -o raw -n 9100"
oShell.Run "cmd /c rundll32 printui.dll,PrintUIEntry /if /b P6154002 /f
%windir%\inf\ntprint.inf /r IP_172.18.102.11 /m " & prndriver1
oShell.Run "cmd /c cscript c:\windows\system32\prnport.vbs -a -r
IP_172.18.102.14 -h 172.18.102.14 -o raw -n 9100"
oShell.Run "cmd /c rundll32 printui.dll,PrintUIEntry /if /b P6154003 /f
%windir%\inf\ntprint.inf /r IP_172.18.102.14 /m " & prndriver1
const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set StdOut = WScript.StdOut
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Printers"
strKeyPath2 = "SOFTWARE\Printers\judesk"
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath2
strValueName = "Installed"
dwValue = 1
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeypath2,strValueName,dwValue
End Function
- 15
- VB Scripts >> InternalNameDoes anyone know how I could echo back a internal name of an dll or exe
file? I found this link:
http://www.nedcomp.nl/support/origdocs/dotnetsdk/cpref/frlrfsystemdiagnosticsfileversioninfoclassinternalnametopic.htm
, but its for Visual Basic, C#, JScript only, and I can't figure out
how I would do it in vbscript.
|
| Author |
Message |
puttocks
|
 Posted: Sat Sep 10 03:49:48 CDT 2005 |
Top |
MFC >> resource-only DLL and LNK2019 error!!
Hi,
i'm developing a resource-only DLL, using /NOENTRY option the linker returns:
error LNK2019: unresolved external symbol _main referenced in function
_mainCRTStartup
Any help!?
Thanks
Ale
Visual Studio335
|
| |
|
| |
|
Mihai
|
| Posted: Sat Sep 10 03:49:48 CDT 2005 |
Top |
MFC >> resource-only DLL and LNK2019 error!!
> i'm developing a resource-only DLL, using /NOENTRY option the linker
returns:
>
> error LNK2019: unresolved external symbol _main referenced in function
> _mainCRTStartup
Are you also using /DLL (just making sure)?
Can you tell us the full command line?
--
Mihai Nita [Microsoft MVP, Windows - SDK]
------------------------------------------
Replace _year_ with _ to get the real email
|
| |
|
| |
|
Ale
|
| Posted: Sat Sep 10 04:04:02 CDT 2005 |
Top |
MFC >> resource-only DLL and LNK2019 error!!
/OUT:"Debug/bwbcustom.dll" /INCREMENTAL /NOLOGO /DLL /DEF:".\bwbcustom.def"
/DELAYLOAD:"OleAcc.dll" /DEBUG /PDB:"Debug/bwbcustom.pdb" /SUBSYSTEM:WINDOWS
/NOENTRY /IMPLIB:"Debug/bwbcustom.lib" /MACHINE:X86 DelayImp.lib
DelayImp.lib
/DLL is there...
Using Shared MFC instead of static Linked i get some warings but it links
succesfull, it's not a solution in order i need to have MFC static linked...
Microsoft only says to add /NOENTRY !!
Thanks for answare and next help...
Ale
"Mihai N." wrote:
> > i'm developing a resource-only DLL, using /NOENTRY option the linker
> returns:
> >
> > error LNK2019: unresolved external symbol _main referenced in function
> > _mainCRTStartup
> Are you also using /DLL (just making sure)?
> Can you tell us the full command line?
>
> --
> Mihai Nita [Microsoft MVP, Windows - SDK]
> ------------------------------------------
> Replace _year_ with _ to get the real email
>
|
| |
|
| |
|
Jeff
|
| Posted: Sat Sep 10 06:20:33 CDT 2005 |
Top |
MFC >> resource-only DLL and LNK2019 error!!
"Ale" <EMail@HideDomain.com> wrote in message
news:EMail@HideDomain.com...
> /OUT:"Debug/bwbcustom.dll" /INCREMENTAL /NOLOGO /DLL
/DEF:".\bwbcustom.def"
> /DELAYLOAD:"OleAcc.dll" /DEBUG /PDB:"Debug/bwbcustom.pdb"
/SUBSYSTEM:WINDOWS
> /NOENTRY /IMPLIB:"Debug/bwbcustom.lib" /MACHINE:X86 DelayImp.lib
> DelayImp.lib
>
> /DLL is there...
>
> Using Shared MFC instead of static Linked i get some warings but it links
> succesfull, it's not a solution in order i need to have MFC static
linked...
>
> Microsoft only says to add /NOENTRY !!
I'm probably all wet, but am curious: Why do you need MFC, import libraries,
a *.pdb, and delay-loading for a resource-only dll?
--
Jeff Partch [VC++ MVP]
|
| |
|
| |
|
Ale
|
| Posted: Sat Sep 10 06:36:03 CDT 2005 |
Top |
MFC >> resource-only DLL and LNK2019 error!!
I don't need MFC really, i've done a simple Win32 DLL - NO MFC - now...
I haven't thought i do not need MFC...
And i think: using a static Link to MFC with /NOENTRY options it'll never
work, it will never find the main(...)!!!
Thanks!!
Ale
"Jeff Partch [MVP]" wrote:
> "Ale" <EMail@HideDomain.com> wrote in message
> news:EMail@HideDomain.com...
> > /OUT:"Debug/bwbcustom.dll" /INCREMENTAL /NOLOGO /DLL
> /DEF:".\bwbcustom.def"
> > /DELAYLOAD:"OleAcc.dll" /DEBUG /PDB:"Debug/bwbcustom.pdb"
> /SUBSYSTEM:WINDOWS
> > /NOENTRY /IMPLIB:"Debug/bwbcustom.lib" /MACHINE:X86 DelayImp.lib
> > DelayImp.lib
> >
> > /DLL is there...
> >
> > Using Shared MFC instead of static Linked i get some warings but it links
> > succesfull, it's not a solution in order i need to have MFC static
> linked...
> >
> > Microsoft only says to add /NOENTRY !!
>
> I'm probably all wet, but am curious: Why do you need MFC, import libraries,
> a *.pdb, and delay-loading for a resource-only dll?
> --
> Jeff Partch [VC++ MVP]
>
>
>
|
| |
|
| |
|
Mihai
|
| Posted: Sun Sep 11 02:57:05 CDT 2005 |
Top |
MFC >> resource-only DLL and LNK2019 error!!
> I'm probably all wet, but am curious: Why do you need MFC, import
libraries,
> a *.pdb, and delay-loading for a resource-only dll?
Exactly my thought :-)
This is all you need:
rc something.rc
link /noentry /dll something.res
This is all you really-really need.
Ok, you might want /MACHINE to eliminate a warning, maybe /nologo
You might also want /l and /c for rc (if you don't have LANGUAGE and pragma
code_page in the .rc). But you don't need to.
--
Mihai Nita [Microsoft MVP, Windows - SDK]
------------------------------------------
Replace _year_ with _ to get the real email
|
| |
|
| |
|
Ale
|
| Posted: Sun Sep 11 06:13:01 CDT 2005 |
Top |
MFC >> resource-only DLL and LNK2019 error!!
Perfect!!!!! ;O)
Ale
"Mihai N." wrote:
> > I'm probably all wet, but am curious: Why do you need MFC, import
> libraries,
> > a *.pdb, and delay-loading for a resource-only dll?
> Exactly my thought :-)
>
> This is all you need:
> rc something.rc
> link /noentry /dll something.res
>
> This is all you really-really need.
>
> Ok, you might want /MACHINE to eliminate a warning, maybe /nologo
> You might also want /l and /c for rc (if you don't have LANGUAGE and pragma
> code_page in the .rc). But you don't need to.
>
> --
> Mihai Nita [Microsoft MVP, Windows - SDK]
> ------------------------------------------
> Replace _year_ with _ to get the real email
>
|
| |
|
| |
|
| |
|
Index ‹ Visual Studio ‹ MFC |
- Next
- 1
- Visual Basic [VB] >> Run a sub from within a tread?I'm a newbie to threads. I can run
"comboProfiles_SelectedIndexChanged(sender, e)" from any normal sub in my
project however if I run this from within a new thread I've started it
doesn't like "sender" or "e". I know sending info from within a thread is
different but what I'm doing should be simple so if someone can help me out
I sure would appreciate it.
Thanks Much,
Justin
- 2
- 3
- VB Scripts >> Pulling an Access Report from an Outlook FormHello,
I'm using (attempting to use) VBScript to pull up an Access Report from
an Outlook form and I keep getting the following errors:
1. operation is not allowed when the object is open
2. database does not exist or else it is open excusivley to another
user
Error 2 occurs with the code below and I get error 1 when I remove
strDBName. Can anyone please help me out? Thank you!
Sub Get_Click()
Dim objConnection
Dim objAccess
Dim strRptName
Dim strDBName
Dim objAddress
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=K:\PSHARE\Sourcing Department Structure\Procurement Services
Project Database\1DepartmentData.mdb;"
strDBName = objConnection.open
strRptName = "rpt_Projects_Detail"
Set objAccess = CreateObject("Access.Application")
objAccess.Visible = False
objAccess.OpenCurrentDatabase strDBName
with objAddress.DoCmd
.OpenReport strRptName, acViewPreview
.Close
end with
objaccess.Quit acQuitSaveNone
set objAccess = Nothing
Set objConnection = Nothing
end sub
--
kshipp99
------------------------------------------------------------------------
Posted via http://www.codecomments.com
------------------------------------------------------------------------
- 4
- Visual Studio C++ >> About Wintrust.hHi,
I was compiling an application that includes a file called wintrust.h in the
VS dir. However, its presence shows some annoying errors and just when
excluding this file, no problems exist. I'm using VC6 now and when using
.NET to compile, I face another set of problems..
Thanks
Jack
- 5
- Visual Basic [VB] >> How to reload MDI Child Form into Parent Form.Hi VB.Net Gurus.
Initial MDI Child form loads fine.
exp.
Dim objChild2 As New Form2()
objChild2.MdiParent = Me
objChild2.Show()
MDI Child unloads just fine.
Exp.
If e.Button Is tbbExit Then
'' Me.Close()
Me.Hide()
rs.Close()
cn.Close()
End If
The MDI Child reload does not reload into the parent form.
It reloads outside the parent form.
exp.
Dim oForm As New Form2()
oForm.MdiParent = Me.ActiveMdiChild
oForm.Show()
Regards,
Tony
- 6
- Visual Basic [VB] >> Application Migration from VB6 to .NETI have an application my partner wrote that would allow an autoresponse to any
Mapi compliant email that apparently in .Net won't, can someone assist me with
fixing this?
Here is the code:
Utilities Module:
Option Explicit
Option Base 1
Public StrSQL As String
Public objSession As MAPI.Session
Public objNewMessage As Message
Public Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
Global Const REG_SZ As Long = 1
Global Const REG_DWORD As Long = 4
Global Const HKEY_CURRENT_USER = &H80000001
Global Const ERROR_NONE = 0
Global Const ERROR_BADDB = 1
Global Const ERROR_BADKEY = 2
Global Const ERROR_CANTOPEN = 3
Global Const ERROR_CANTREAD = 4
Global Const ERROR_CANTWRITE = 5
Global Const ERROR_OUTOFMEMORY = 6
Global Const ERROR_INVALID_PARAMETER = 7
Global Const ERROR_ACCESS_DENIED = 8
Global Const ERROR_INVALID_PARAMETERS = 87
Global Const ERROR_NO_MORE_ITEMS = 259
Global Const KEY_ALL_ACCESS = &H3F
Global Const REG_OPTION_NON_VOLATILE = 0
Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (ByRef
lpVersionInformation As OSVERSIONINFO) As Long
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As
Long
Public Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA"
(ByVal hKey As Long, _
ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As
Long, phkResult As Long) As Long
Public Declare Function RegQueryValueExString Lib "advapi32.dll" Alias
"RegQueryValueExA" (ByVal hKey As Long, _
ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long,
ByVal lpData As String, lpcbData As Long) As Long
Public Declare Function RegQueryValueExLong Lib "advapi32.dll" Alias
"RegQueryValueExA" (ByVal hKey As Long, _
ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long,
lpData As Long, lpcbData As Long) As Long
Public Declare Function RegQueryValueExNULL Lib "advapi32.dll" Alias
"RegQueryValueExA" (ByVal hKey As Long, _
ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long,
ByVal lpData As Long, lpcbData As Long) As Long
Public Function QueryValue(sKeyName As String, sValueName As String)
Dim lRetVal As Long 'result of the API functions
Dim hKey As Long 'handle of opened key
Dim vValue As Variant 'setting of queried value
lRetVal = RegOpenKeyEx(HKEY_CURRENT_USER, sKeyName, 0, KEY_ALL_ACCESS,
hKey)
lRetVal = QueryValueEx(hKey, sValueName, vValue)
QueryValue = vValue
RegCloseKey (hKey)
End Function
Function QueryValueEx(ByVal lhKey As Long, ByVal szValueName As String, vValue
As Variant) As Long
Dim cch As Long
Dim lrc As Long
Dim lType As Long
Dim lValue As Long
Dim sValue As String
On Error GoTo QueryValueExError
' Determine the size and type of data to be read
lrc = RegQueryValueExNULL(lhKey, szValueName, 0&, lType, 0&, cch)
If lrc <> ERROR_NONE Then Error 5
Select Case lType
' For strings
Case REG_SZ:
sValue = String(cch, 0)
lrc = RegQueryValueExString(lhKey, szValueName, 0&, lType, sValue, cch)
If lrc = ERROR_NONE Then
vValue = Left$(sValue, cch)
Else
vValue = Empty
End If ' For DWORDS
Case REG_DWORD:
lrc = RegQueryValueExLong(lhKey, szValueName, 0&, lType, lValue, cch)
If lrc = ERROR_NONE Then vValue = lValue
Case Else
'all other data types not supported
lrc = -1
End Select
QueryValueExExit:
QueryValueEx = lrc
Exit Function
QueryValueExError:
Resume QueryValueExExit
End Function
Public Sub SendMail(Recip As String, Subj As String, Body As String)
Dim objOutBox As Folder
Dim objNewMessage As Message
Dim objRecipients As Recipients
Dim objOneRecip As Recipient
'StartMessagingAndLogon
objSession.Logon frmLogin.txtUserName, frmLogin.txtPassword, True, True
Set objOutBox = objSession.Outbox
Set objNewMessage = objOutBox.Messages.Add
Set objRecipients = objNewMessage.Recipients
Set objOneRecip = objRecipients.Add
objOneRecip = Recip
With objNewMessage
.Subject = Subj
.Text = Body
.Send
End With
End Sub
Sub StartMessagingAndLogon()
Dim sKeyName As String
Dim sValueName As String
Dim sDefaultUserProfile As String
Dim osinfo As OSVERSIONINFO
Dim retvalue As Integer
On Error GoTo ErrorHandler
Set objSession = CreateObject("MAPI.Session")
'Try to logon. If this fails, the most likely reason is
'that you do not have an open session. The error
'-2147221231 MAPI_E_LOGON_FAILED will return. Trap
'the error in the ErrorHandler
objSession.Logon ShowDialog:=False, NewSession:=False
Exit Sub
ErrorHandler:
Select Case Err.Number
Case -2147221231 'MAPI_E_LOGON_FAILED
'Need to find out what OS is in use, the keys are different
'for WinNT and Win95.
osinfo.dwOSVersionInfoSize = 148
osinfo.szCSDVersion = Space$(128)
retvalue = GetVersionEx(osinfo)
Select Case osinfo.dwPlatformId
Case 0 'Unidentified
MsgBox "Unidentified Operating System. Can't log onto
messaging."
Exit Sub
Case 1 'Win95
sKeyName = "Software\Microsoft\Windows Messaging
Subsystem\Profiles"
Case 2 'NT
sKeyName = "Software\Microsoft\Windows NT\CurrentVersion\Windows
Messaging Subsystem\Profiles"
End Select
sValueName = "DefaultProfile"
sDefaultUserProfile = QueryValue(sKeyName, sValueName)
objSession.Logon ProfileName:=sDefaultUserProfile, ShowDialog:=False
Exit Sub
Case Else
MsgBox "An error has occured while attempting" & Chr(10) & _
"To create and logon to a new ActiveMessage session." & _
Chr(10) & "Please report the following error to your " & _
"System Administrator." & Chr(10) & Chr(10) & _
"Error Location: frmMain.StartMessagingAndLogon" & _
Chr(10) & "Error Number: " & Err.Number & Chr(10) & _
"Description: " & Err.Description
End Select
End Sub
Public Function CheckInbox(LastChecked As Date)
Dim objInbox As Folder
Dim objMessages As Messages
'Dim objMsgFilter As MessageFilter
Dim objOneMessage As Message
Dim MailBox(1 To 1000, 1 To 6) As Variant
Dim I As Integer
Dim X As Integer
Dim Y As Integer
Dim temp As String
X = 0
'StartMessagingAndLogon
objSession.Logon frmLogin.txtUserName, frmLogin.txtPassword, True, True
Set objInbox = objSession.Inbox
Set objMessages = objInbox.Messages
'Set objMsgFilter = objMessages.Filter
'objMsgFilter.Unread = False
For I = 1 To objMessages.Count
Set objOneMessage = objMessages.Item(I)
If objOneMessage.TimeReceived > LastChecked Then
X = X + 1
MailBox(X, 1) = X
For Y = 2 To 6
Select Case Y
Case 2
temp = objOneMessage.Sender
Case 3
temp = objOneMessage.Subject
Case 4
temp = objOneMessage.Text
Case 5
temp = objOneMessage.TimeReceived
Case 6
On Error Resume Next
If IsNull(objOneMessage.Recipients(1)) Then
temp = ""
Else
temp = objOneMessage.Recipients(1)
End If
On Error GoTo 0
End Select
MailBox(X, Y) = temp
Next Y
End If
Next I
CheckInbox = MailBox
Set objSession = Nothing
End Function
Public Function Resolver(Email As String) As String
Dim objOutBox As Folder
Dim objNewMessage As Message
Dim objRecipients As Recipients
Dim objOneRecip As Recipient
StartMessagingAndLogon
Set objOutBox = objSession.Outbox
Set objNewMessage = objOutBox.Messages.Add
Set objRecipients = objNewMessage.Recipients
Set objOneRecip = objRecipients.Add
With objOneRecip
'Fill in an appropriate alias here
.Name = Email
.Type = ActMsgTo
Resolver = .Resolve ' get MAPI to determine complete e-mail address
End With
Set objOutBox = Nothing
Set objNewMessage = Nothing
Set objRecipients = Nothing
Set objOneRecip = Nothing
End Function
Sub Respond(TimeChecked As Date)
Dim Arr As Variant
Dim Con As New ADODB.Connection
Dim RSEmails As New ADODB.Recordset
Dim RSCustomers As New ADODB.Recordset
Dim Addy As String
Dim temp As String
Dim I As Integer
Dim J As Integer
Dim X As Integer
Set Con = New ADODB.Connection
With Con
.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" &
App.Path & "\ARBack.mdb;"
.Open
End With
RSEmails.Open "SELECT * FROM Outgoing", Con, adOpenForwardOnly,
adLockOptimistic, adCmdText
RSCustomers.Open "SELECT * FROM Customers", Con, adOpenDynamic,
adLockOptimistic, adCmdText
RSEmails.MoveFirst
Arr = CheckInbox(TimeChecked)
For I = 1 To UBound(Arr)
For J = 1 To 6
If Arr(I, J) = "" Then
Exit Sub
End If
Next J
'this is where we do the comparison
Do While Not RSEmails.EOF
Select Case RSEmails!qualifier
Case "sent from"
X = 2
Case "sent to"
X = 6
Case "with subject of"
X = 3
End Select
If InStr(0, Arr(I, 2), "@", vbBinaryCompare) = 0 Then
temp = Arr(I, 2)
Addy = Resolver(temp)
Else
Addy = Arr(I, 2)
End If
If Arr(I, X) = RSEmails!object Then
SendMail Addy, RSEmails!Subject, RSEmails!Body
RSCustomers.AddNew
RSCustomers![login ID] = frmLogin.txtUserName
RSCustomers!emailname = Addy
RSCustomers!Category = RSEmails!Category
RSCustomers!LetterSent = RSEmails!EmailID
RSCustomers.Update
End If
Loop
RSEmails.MoveFirst
Next I
End Sub
System Tray Module:
'user defined type required by Shell_NotifyIcon API call
Public Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uId As Long
uFlags As Long
uCallBackMessage As Long
hIcon As Long
szTip As String * 64
End Type
'constants required by Shell_NotifyIcon API call:
Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDOWN = &H201 'Button down
Public Const WM_LBUTTONUP = &H202 'Button up
Public Const WM_LBUTTONDBLCLK = &H203 'Double-click
Public Const WM_RBUTTONDOWN = &H204 'Button down
Public Const WM_RBUTTONUP = &H205 'Button up
Public Const WM_RBUTTONDBLCLK = &H206 'Double-click
Public Declare Function SetForegroundWindow Lib "user32" _
(ByVal hwnd As Long) As Long
Public Declare Function Shell_NotifyIcon Lib "shell32" _
Alias "Shell_NotifyIconA" _
(ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Public nid As NOTIFYICONDATA
There is Forms frmLogin, frmOutgoing1, frmUndercover, which is the start up
screen.
frmLogin Code:
Option Explicit
Dim MyCount As Integer
Public LoginSucceeded As Boolean
Private Sub cmdCancel_Click()
'set the global var to false
'to denote a failed login
LoginSucceeded = False
End
End Sub
Private Sub cmdOK_Click()
If MyCount <= 1 Then
MyCount = MyCount + 1
CheckPass
Else
MsgBox "You don't have an account or you are not using the correct
password. Good bye.", vbCritical
End
End If
End Sub
Private Sub CheckPass()
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim MyText As String
Set DB = DBEngine.OpenDatabase(App.Path & "\ARBack.mdb")
Set RS = DB.OpenRecordset("users", dbOpenDynaset)
RS.FindFirst "[Login ID] = '" & txtUserName & "'"
If RS.NoMatch Then
On Error Resume Next
MyText = InputBox("You are a new user. Please verify your Password, or
click cancel to exit.", "AutoResoponder Request for Information")
If MyText = "" Then
MsgBox "You must assign a password."
Exit Sub
Else
If MyText = txtPassword Then
RS.AddNew
RS("Login ID") = txtUserName
RS("Password") = MyText
RS.Update
Me.Hide
StrSQL = "SELECT * FROM Outgoing WHERE [Login ID] = '" &
Me("txtUserName") & "'"
MsgBox StrSQL
Load frmOutgoing1
frmOutgoing1("datPrimaryRS").RecordSource = StrSQL
frmUnderCover.Show
Exit Sub
End If
End If
Else
If RS("password") = txtPassword Then
Me.Hide
StrSQL = "SELECT * FROM Outgoing WHERE [Login ID] = '" &
Me("txtUserName") & "'"
'MsgBox StrSQL
Load frmOutgoing1
frmOutgoing1("datPrimaryRS").RecordSource = StrSQL
frmUnderCover.Show
Exit Sub
Else
MsgBox "You have entered an invalid password. Please try again.",
vbOKOnly, "Invalid Password"
txtPassword = ""
txtPassword.SetFocus
Exit Sub
End If
End If
End Sub
frmOutgoing1 Code:
Option Explicit
Dim AddRec As Boolean
Private Sub cboQualifier_Validate(Cancel As Boolean)
If Me("cboqualifier") = "Sent to" Or Me("cboqualifier") = "Sent from" Or
Me("cboqualifier") = "With subject of" Then
Cancel = False
Exit Sub
Else
MsgBox "You must enter an item from the list", vbCritical, "Validation
error"
Me!cboQualifier = "With subject of"
Cancel = True
End If
End Sub
Private Sub CmdClose_Click()
frmUnderCover.Show
Unload Me
End Sub
Private Sub cmdEdit_Click(Index As Integer)
UnlockAllControls
End Sub
'Private Sub cmdEdit_Click()
' UnlockAllControls
'End Sub
Private Sub Form_Load()
With Me("datPrimaryRS")
.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" &
App.Path & "\ARBack.mdb;"
.RecordSource = StrSQL
End With
Me("datPrimaryRS").Refresh
If Not AddRec Then
LockAllControls
End If
AddRec = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
frmUnderCover.Show
Screen.MousePointer = vbDefault
End Sub
Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As
String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String,
ByVal HelpContext As Long, fCancelDisplay As Boolean)
'This is where you would put error handling code
'If you want to ignore errors, comment out the next line
'If you want to trap them, add code here to handle them
MsgBox "Data error event hit err:" & Description
End Sub
'Private Sub datPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum,
ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal
pRecordset As ADODB.Recordset)
' 'This will display the current record position for this recordset
' Dim ThisRec As String
' Dim LastRec As String
'
' ThisRec = CStr(datPrimaryRS.Recordset.AbsolutePosition)
'
' If Not datPrimaryRS.Recordset.EOF Then
'
' LastRec = CStr(datPrimaryRS.Recordset.RecordCount)
' Else
' ThisRec = 0
' LastRec = ThisRec
' End If
'
' datPrimaryRS.Caption = "
Outgoing Mail Record " & ThisRec & " of " & LastRec
'
' If AddRec Then
' UnlockAllControls
' Else
' LockAllControls
' End If
'
'End Sub
'Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As
ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As
ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
' 'This is where you put validation code
' 'This event gets called when the following actions occur
' Dim bCancel As Boolean
'
' Select Case adReason
' Case adRsnAddNew
' Case adRsnClose
' Case adRsnDelete
' Case adRsnFirstChange
' Case adRsnMove
' Case adRsnRequery
' Case adRsnResynch
' Case adRsnUndoAddNew
' Case adRsnUndoDelete
' Case adRsnUndoUpdate
' Case adRsnUpdate
' End Select
If bCancel Then adStatus = adStatusCancel
End Sub
Private Sub cmdAdd_Click()
On Error GoTo AddErr
UnlockAllControls
Me!LoginID = frmLogin!txtUserName
AddRec = True
datPrimaryRS.Recordset.AddNew
Me.txtFields(0).SetFocus
Exit Sub
AddErr:
MsgBox Err.Description
End Sub
Private Sub cmdDelete_Click()
On Error GoTo DeleteErr
With datPrimaryRS.Recordset
.Delete
.MoveNext
If .EOF Then .MoveLast
End With
Exit Sub
DeleteErr:
MsgBox Err.Description
End Sub
Private Sub cmdUpdate_Click()
On Error GoTo UpdateErr
Me.LoginID = frmLogin("txtUsername")
datPrimaryRS.Recordset.UpdateBatch adAffectAll
LockAllControls
Exit Sub
UpdateErr:
MsgBox Err.Description
End Sub
Private Sub UnlockAllControls()
Dim CTL As Control
For Each CTL In Me.Controls
If CTL.Tag = "Tan" Then
CTL.Enabled = True
End If
Next CTL
End Sub
Private Sub LockAllControls()
Dim CTL As Control
For Each CTL In Me.Controls
If CTL.Tag = "Tan" Then
CTL.Enabled = False
End If
Next CTL
End Sub
frmUnderCover Code:
Option Explicit
Dim Working As Boolean
Private Sub Form_Load()
Me!Image3.Picture = Me!Image1.Picture
Me!imgExit.Picture = Me!ExitUnclick.Picture
Me!imgStartService.Picture = Me!StartServiceUnclick.Picture
'the form must be fully visible before calling Shell_NotifyIcon
Me.Show
Me.Refresh
With nid
.cbSize = Len(nid)
.hwnd = Me.hwnd
.uId = vbNull
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.uCallBackMessage = WM_MOUSEMOVE
.hIcon = Me.Icon
.szTip = "Autoresponder (tm)" & vbNullChar
End With
Shell_NotifyIcon NIM_ADD, nid
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim Frm As Form
'this removes the icon from the system tray
Shell_NotifyIcon NIM_DELETE, nid
For Each Frm In Forms
Unload Frm
Next Frm
End
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y
As Single)
'this procedure receives the callbacks from the System Tray icon.
Dim Result As Long
Dim msg As Long
'the value of X will vary depending upon the scalemode setting
If Me.ScaleMode = vbPixels Then
msg = X
Else
msg = X / Screen.TwipsPerPixelX
End If
Select Case msg
Case WM_LBUTTONUP '514 restore form window
Me.WindowState = vbNormal
Result = SetForegroundWindow(Me.hwnd)
Me.Show
Case WM_LBUTTONDBLCLK '515 restore form window
Me.WindowState = vbNormal
Result = SetForegroundWindow(Me.hwnd)
Me.Show
Case WM_RBUTTONUP '517 display popup menu
Result = SetForegroundWindow(Me.hwnd)
Me.PopupMenu Me.mPopupSys
End Select
End Sub
Private Sub Form_Resize()
'this is necessary to assure that the minimized window is hidden
If Me.WindowState = vbMinimized Then Me.Hide
End Sub
Private Sub Image3_Click()
Load frmOutgoing1
Me.Hide
Working = False
frmOutgoing1.Show
End Sub
Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single,
Y As Single)
Me!Image3.Picture = Me!Image2.Picture
End Sub
Private Sub Image3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y
As Single)
Me!Image3.Picture = Me!Image1.Picture
End Sub
Private Sub imgExit_Click()
Unload Me
End Sub
Private Sub imgExit_MouseDown(Button As Integer, Shift As Integer, X As Single,
Y As Single)
Me!imgExit.Picture = Me!ExitClick.Picture
End Sub
Private Sub imgExit_MouseUp(Button As Integer, Shift As Integer, X As Single, Y
As Single)
Me!imgExit.Picture = Me!ExitUnclick.Picture
End Sub
Private Sub imgStartService_Click()
StartLoop
Me.WindowState = 1
End Sub
Private Sub imgStartService_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Me!imgStartService.Picture = Me!StartServiceClick.Picture
End Sub
Private Sub imgStartService_MouseUp(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Me!imgStartService.Picture = Me!StartServiceUnclick.Picture
End Sub
Private Sub mPopExit_Click()
'called when user clicks the popup menu Exit command
Unload Me
End Sub
Private Sub mPopRestore_Click()
Dim Result As Long
'called when the user clicks the popup menu Restore command
Me.WindowState = vbNormal
Result = SetForegroundWindow(Me.hwnd)
Me.Show
End Sub
Private Sub StartLoop()
Dim DB As DAO.Database
Dim Sender As String
Dim RSUsers As DAO.Recordset
Dim RSOutgoing As DAO.Recordset
Dim RSCustomer As DAO.Recordset
Dim TempUser As String
Dim I As Integer
On Error GoTo ServiceHandler
Working = True
Set DB = DBEngine.OpenDatabase(App.Path & "\ARBack.mdb")
DoEvents
On Error GoTo 0
Set RSUsers = DB.OpenRecordset("Users", dbOpenSnapshot)
Set RSOutgoing = DB.OpenRecordset("SELECT * FROM outgoing WHERE [Login ID]
= '" & RSUsers("Login ID") & "'", dbOpenDynaset)
Set RSCustomer = DB.OpenRecordset("Customers", dbOpenDynaset)
If RSOutgoing.EOF Then
MsgBox "You have no outgoing messages entered. Please go back to the
main menu and select 'Add\Edit Emails'", vbInformation, "No Valid outgoing
messages"
imgStartService.Picture = Me.StartServiceUnclick.Picture
Exit Sub
End If
DoEvents
TempUser = RSUsers("Login ID")
Do While Not RSUsers.EOF
If TempUser <> RSUsers("Login ID") Then
GetSessID RSUsers("Login ID"), RSUsers("Password")
Set RSOutgoing = DB.OpenRecordset("SELECT * FROM outgoing WHERE
[Login ID] = '" & RSUsers("Login ID") & "'", dbOpenDynaset)
Me.MAPIMessages1.Fetch
End If
Do While I <= Me.MAPIMessages1.MsgCount - 1
If Me.MAPIMessages1.MsgCount = 0 Then
Exit Do
End If
Me.MAPIMessages1.MsgIndex = I
If CDate(Me.MAPIMessages1.MsgDateReceived) >
DB.Properties("lastchecked") Then
Do While Not RSOutgoing.EOF
If InStrRev(Me.MAPIMessages1.MsgOrigAddress, "=") = 0 And
Me.MAPIMessages1.MsgOrigAddress <> "" Then
Sender = Right(Me.MAPIMessages1.MsgOrigAddress,
Len(Me.MAPIMessages1.MsgOrigAddress) - 5)
Else
Sender = Right(Me.MAPIMessages1.MsgOrigAddress,
(Len(Me.MAPIMessages1.MsgOrigAddress) -
InStrRev(Me.MAPIMessages1.MsgOrigAddress, "=")))
End If
If RSOutgoing("Qualifier") = "sent from" And UCase(Sender)
= UCase(RSOutgoing("Object")) Then
SendMail RSOutgoing("subject"), RSOutgoing("Body"),
Sender
AddCustomer RSOutgoing("category"), Sender,
RSOutgoing("Email ID"), False
End If
If RSOutgoing("Qualifier") = "sent to" And
UCase(RSOutgoing("Login ID")) = UCase(Left(Me.MAPIMessages1.RecipAddress,
InStr(Me.MAPIMessages1.RecipAddress, "@"))) Then
SendMail RSOutgoing("subject"), RSOutgoing("Body"),
Sender
AddCustomer RSOutgoing("category"), Sender,
RSOutgoing("Email ID"), False
End If
If RSOutgoing("Qualifier") = "with subject of" And
UCase(Me.MAPIMessages1.MsgSubject) = UCase(RSOutgoing("object")) Then
If UCase(Me.MAPIMessages1.MsgSubject) <> "REMOVE" Then
SendMail RSOutgoing("subject"), RSOutgoing("Body"),
Sender
AddCustomer RSOutgoing("category"), Sender,
RSOutgoing("Email ID"), False
Else
AddCustomer RSOutgoing("category"), Sender,
RSOutgoing("email ID"), True
End If
End If
RSOutgoing.MoveNext
Loop
RSOutgoing.MoveFirst
End If
If I = Me.MAPIMessages1.MsgCount - 1 Then
Me.MAPIMessages1.MsgIndex = I
DB.Properties("LastChecked") = Me.MAPIMessages1.MsgDateReceived
End If
I = I + 1
DoEvents
Loop
TempUser = RSUsers("Login ID")
RSUsers.MoveNext
Loop
Set DB = Nothing
Set RSOutgoing = Nothing
Set RSCustomer = Nothing
DoEvents
Working = False
Exit Sub
ServiceHandler:
If Err.Number = 3270 Then
Dim Prop As DAO.Property
Set Prop = DB.CreateProperty("LastChecked", dbDate, Now(), True)
DB.Properties.Append Prop
Err.Clear
Resume Next
End If
If Err.Number = 32002 Then
Err.Clear
Exit Sub
End If
End Sub
Private Sub Timer1_Timer()
If Not Working Then
StartLoop
End If
End Sub
Private Sub AddCustomer(Category As String, Sender As String, LetterSent As
String, Remove As Boolean)
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Set DB = DBEngine.OpenDatabase(App.Path & "\ARBack.mdb")
Set RS = DB.OpenRecordset("Customers", dbOpenDynaset)
If Not Remove Then
RS.FindFirst "[Email Name] = '" & Sender & "'"
If RS.NoMatch Then
RS.AddNew
RS("Login ID") = frmLogin.txtUserName
RS("Email Name") = Sender
RS("Category") = Category
RS("letter Sent") = LetterSent
RS.Update
Else
RS.Edit
RS("letter sent") = LetterSent
RS.Update
End If
Else
RS.FindFirst "[Email Name] = '" & Sender & "'"
RS.Delete
End If
Set RS = Nothing
Set DB = Nothing
End Sub
Private Sub SendMail(Subject As String, Body As String, Sender As String)
Me.MAPIMessages1.Compose
Me.MAPIMessages1.MsgSubject = Subject
Me.MAPIMessages1.MsgNoteText = Body
Me.MAPIMessages1.RecipAddress = Sender
Me.MAPIMessages1.AddressResolveUI = True
Me.MAPIMessages1.ResolveName
Me.MAPIMessages1.Send False
End Sub
Private Sub GetSessID(uId As String, PWD As String)
On Error GoTo GetSesshandler
Me.MAPISession1.UserName = uId
Me.MAPISession1.Password = PWD
Me.MAPISession1.SignOn
Me.MAPIMessages1.SessionID = Me.MAPISession1.SessionID
Exit Sub
GetSesshandler:
If Err.Number = 32003 Then
MsgBox "You failed to enter a valid User ID and Password. You will now
be logged off. If you know the name of your mail server, you can set up a new
profile and password by clicking the 'New' button when prompted for a
password.", vbCritical, "Invalid UID and PWD"
Unload Me
End If
End Sub
If this can be done, the code is here for you to make your own Autoresponder,
but even in VB6, with all the Security updates it won't work now. I hope there
is a workaround?
Michael
- 7
- Visual Basic >> datagrid using vb6.0 and ADOHi,
I tried to add the data from a datagrid using vb6.0 and ADO, I can add but
only row by row from the datagrid, but I wanted to be added all the rows
which are populated in that datagrid in a single step, I used the next code
for adding:
Dim rstadd As ADODB.Recordset
Set rstadd = New ADODB.Recordset
Dim siruladd As String
siruladd = "select * from carriers_rates "
rstadd.Open siruladd, Conex
With rstadd
.Filter = "carrier_code='" & frmImport!txtCarrierCode.Text & "' AND
concatenate_code_by_carrier='" & frmImport!dgImport.Columns(1).Text & "' AND
date='" & frmImport!dtpData.Value & "' "
If .RecordCount = 0 Then
.AddNew
rstadd!carrier_code = frmImport!txtCarrierCode.Text
rstadd!area_name = frmImport!dgImport.Columns(0).Text
rstadd!concatenate_code_by_carrier = frmImport!dgImport.Columns(1).Text
rstadd!Rate = frmImport!dgImport.Columns(2).Text
rstadd!effective_date = frmImport!dgImport.Columns(3).Text
rstadd!Data = frmImport!dtpData.Value
.Update
Else
MsgBox ("Inregistrarea a fost facuta, selectati un alt carrier!")
End If
End With
'****************************************************************************************************************
Do you know what I have to do for this adding?
Thank you
- 8
- Visual Basic [VB] >> winforms vb.net asp.net conversionHi all,
We have a vb.net app (WinForms) that has been running for a while now
in production. We'd now like to make it into a thin client by moving
to a web-based application and asp.net.
I'm not very familiar with asp.net, but am very familiar with vb.net.
Does anyone have any recommendations on how to start this process ?
I'd like to avoid having to re-write major portions of the application.
How well to WinForm controls move over to ASP ?
Any ideas would be most appreciated.
Mark
- 9
- Visual Basic >> Visual Basic Communication with Serial Port RS232I am attempting to use visual basic to perform a few seemingly simple tasks,
but I have been unsuccessful to do so. I am trying to write a code that can
communicate through a serial port to a microcontroller. All I need the code
to do is to open a com port on my computer, send it the letter g (which
triggers the microcontroller to send back an array of data) and receive an
array of data and write it to a text file. The microcontroller array is a
1440 X 7 array, and all I need the code to do is somehow get this through
the serial port to my computer and make a text file that has the array. If
you know of any way to do this, or anyone who could possibly help me I would
be very greatful! If someone is available, or I need to pay for help
(reasonably of course) I am willing to do so. Thank you for taking the time
to read this and I hope someone out there can find a chance to help me out!
- 10
- Visual Basic [VB] >> Trying to create a copy of a .NET dllHello,
I'm trying to make a copy of a .NET dll for testing purposes.
I've changed the target of my dll from MyDLL.dll to MyDLLTest.dll. In
the AssemblyInfo.vb, I've changed the from:
<Assembly: AssemblyDescription("My DLL")>
to:
<Assembly: AssemblyDescription("My DLL Test")>
I've then copied the MyDLLTest.dll to the same directory as a VB6 test
harness that I've built and run regasm MyDLLTest.dll /tlb:MyDLLTest.tlb
to create
the type library.
Next, I go to add a reference in my VB6 test harness
and browse to the .tlb file that's in the same directory. I click add
and in the references in my VB6 project I see "My DLL" instead of "My
DLL Test".
Please note that the MyDLL.dll that I'm basing the
MyDLLTest.dll from is registered in COM+. I'm wondering if I need to
change the guid in the AssemblyInfo.vb in order to get "My DLL Test" to
show up in the references description in my VB6 project. I've added
some additional debugging information to to MyDLLTest.dll that's not in
MyDLL.dll.
I want to be able to move this VB6 exe together with MyDLLTest.dll to
another machine that also has MyDLL.dll registered in COM+. I'm
figuring that this way I can see what's going on in MyDLL.dll without
disturbing the existing MyDLL.dll that's registered in COM+.
Thanks,
Eric
- 11
- VB Scripts >> Login script to redirect LPT1 to Terminal Server remote client priI am trying to find a way to create a script that runs when my client
connects to a Terminal Server. I want the script to determine if the remote
client computer has a connected printer. If it does, I want the script to
SHARE that printer and then redirect LPT1 output to that SHARE using the NET
USE command.
STEP 1 - This command outputs the raw information about the default printer.
If the port the printer is connected to begins with 'TS' then it is indeed a
terminal server session printer. The printer name needs to be isolated to a
variable to be passed to the second command and the 'TS' port should be
passed as the SHARE NAME so that it is unique and does not conflict with
other users' shares:
reg query "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows" /V
Device
STEP 2 - The following command will share a printer from a
command line. :
cscript c:\windows\system32\prncnfg.vbs -t -p "<printername from above
step>" -h "<sharename using TS port info from above step>" +shared
STEP 3 - NET USE LPT1: \\<TerminalServerName>\<Sharename>
Alternatively, if anyone can direct me to a good online VBScript reference
guide I would be happy to figure out how to write this myself.
Thanks,
Tom Shubert
- 12
- MFC >> equating handleshi,
I have a problem in equating two HANDLE's.
the code is
if( (m_SocketManager1[i].m_hThread != cl.GetAt(p).h))
here "m_SocketManager1[i].m_hThread" is a HANDLE,
"cl.GetAt(p).h" is a HANDLE
now even though both the HANDLE's are same it goes in to the condition. I
can see in the debugger that they both are equal.
Any help on this is appreciated.
Thank you
- 13
- MFC >> strange issue with drag and drop target windowhi there
i am implementing drag n drop in my app using the COleDataSource/
COleDropSource/COleDropTarget classes
everything is going well, but there is one strange thing going on
one of my target windows is a plain ole CWnd-derived window, which has
some child buttons created on it dynamically - i register a
COleDropTarget object for the CWnd-derived parent window, but *not*
for any of the child button windows
when i try to drag onto this window, the COleDropTarget instance that
was registered for the window only gets its OnDragEnter/OnDragOver/
OnDragLeave/OnDrop methods called when the mouse is over one of the
*child* buttons, and never when it is moving over open space within
the window
i check window handles in the COleDropTarget handlers, and the window
passed to these methods has the same handle as my main CWnd-derived
window, *not* the handle of the child button, so that makes sense
also, when i create *no* child buttons on the CWnd-derived window, the
drop handlers don;t get called *at all*
so why oh why shouldn't the COleDropTarget object be called when the
cursor is *anywhere* the registred window?
its driving me nuts
any help will be greatly appreciated
regards
bhu
- 14
- 15
- VB Scripts >> folder sizeI have to find out the folder size on a network drive that I have access to.
I have access to the drive but not all the folders in the drive. Can someone
help me please. like do for each loop, but also skip the folder that I do not
have access to
|
|
|