Circuit Negma

C++, C, VB.NET, PCB, Electronics, Circuit Design

UpDate: Opt-Out Letter Generator – Ver. 2.0

Posted by Circuit Negma on May 24, 2006


Software Bugs:
1. Control the font format within cells                    DONE
2. Check user input syntax and characteristics     DONE
3. Check if the file exists                                        NOT DONE
4. check if the file is already opened                     NOT DONE

https://i0.wp.com/cdn-99.cdn.buzznet.com/assets/users11/subspace/default/msg-114848806472-2.jpg

https://i1.wp.com/cdn-27.cdn.buzznet.com/assets/users11/subspace/default/msg-114848806186-2.jpg

G:\Documents and Settings\nemo\My Documents\Visual Studio 2005\Projects\Opt-Out\Opt-Out\MainForm.vb 1

1 Option Explicit On

23

Public Class MainForm

45

Private filename As String

6 Private astr As String

7 Private Saveflag As Boolean

8 Private MyWord As Word.Application

9 Private WordDoc As Word.Document

10 Private MyTable As Word.Table

11 Private MyCell As Word.Cell

12 Private MyCols As Word.Columns

13 Private RetSt As String

14 Private i, ro, co, addressflag As Integer

15 Private currdate As Date

16

17

18 Private Sub clearBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles clearBtn.Click

19

20 frstTxtBox.Text = “”

21 frstTxtBox.BackColor = Color.White

22 midTxtBox.Text = “”

23 midTxtBox.BackColor = Color.White

24 lstTxtBox.Text = “”

25 lstTxtBox.BackColor = Color.White

26 currTxtBox.Text = “”

27 currTxtBox.BackColor = Color.White

28 prevTxtBox.Text = “(Fill in your previous mailing address if you have moved in the last 6 months.) Note: not required by


Equifax and Experian.”

29 prevTxtBox.BackColor = Color.White

30 ssnTxtBox.Text = “333224444 – No Dashes”

31 ssnTxtBox.BackColor = Color.White

32

33 End Sub

34

35 Private Sub exitBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exitBtn.Click

36 Dispose()

37

38 End Sub

39

40 Private Sub okBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles okBtn.Click

41

42 ‘ String Error Check Data

43 ‘============================

44 If strErrorCheck() = 1 Then

45 Exit Sub

46 End If

47

48 If ssnErrorCheck() = 1 Then

49 Exit Sub

50 End If

51

52 Me.WindowState = FormWindowState.Minimized

53 Me.Enabled = False

54 progressFrm.Show()

55

G:\Documents and Settings\nemo\My Documents\Visual Studio 2005\Projects\Opt-Out\Opt-Out\MainForm.vb 2

56 If RadioButton1.Checked = True Then

57

58 Call SaveFileName(“doc”, “MS Word Documents”) ‘ Call Save File Dialog to save the output results

59

60 MyWord = CreateObject(“Word.Application”)

61 WordDoc = MyWord.Documents.Add

62

63 MyWord.Visible = True

64

65 Call AddressChange(1)

66 MyWord.Selection.InsertBreak()

67 Call AddressChange(2)

68 MyWord.Selection.InsertBreak()

69 Call AddressChange(3)

70

71 ‘=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

72

73 ‘finaly save the file. If the document exists then will be overwriten

74 WordDoc.SaveAs(filename)

75

76 WordDoc.Application.Quit()

77

78 WordDoc = Nothing

79 MyWord = Nothing

80

81 progressFrm.Button1.Text = “Process is Done”

82

83 ElseIf RadioButton2.Checked = True Then

84

85 Call SaveFileName(“txt”, “Text Documents”) ‘ Call Save File Dialog to save the output results

86

87 End If

88

89 End Sub

90

91 ‘ Save Dailog Method

92 ‘=======================

93 #Region “Save Dailog Method”

94 Private Sub SaveFileName(ByVal str1 As String, ByVal str2 As String)

95

96 On Error GoTo SaveAsErr

97

98 ‘ display the Save dialog

99 SaveFileDialog.AddExtension = True

100 SaveFileDialog.DefaultExt = str1

101 SaveFileDialog.Filter = str2 + ” (*.” + str1 + “)|*.” + str1

102

103 ‘ Check if yes or Cancel btn is clicked

104 ‘ get the resulting filename

105 If SaveFileDialog.ShowDialog = Windows.Forms.DialogResult.Cancel Then

106 filename = “opt-out.” + str1

107 Else

108 filename = SaveFileDialog.FileName

109 End If

110

111 SaveAsErr:

G:\Documents and Settings\nemo\My Documents\Visual Studio 2005\Projects\Opt-Out\Opt-Out\MainForm.vb 3

112 Exit Sub

113

114 End Sub

115 #End Region

116

117 ‘ Main Code to Generate the Output Results

118 ‘===============================================

119 #Region “Main Code to Generate the Output Results”

120 Private Sub AddressChange(ByVal flag As Integer)

121

122 Dim RetSt As String

123

124 RetSt = Chr(13)

125

126 MyWord.Selection.Font.Name = “Times New Roman”

127 MyWord.Selection.Font.Size = 12

128 MyWord.Selection.Font.Bold = False

129 MyWord.Selection.Font.Underline = Word.WdUnderline.wdUnderlineNone

130 MyWord.Selection.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft

131

132 Select Case flag

133 Case 1

134 astr = “Equifax, Inc.” + RetSt + “P.O. Box 740123” + RetSt + “Atlanta, GA 30374-0123”

135 Case 2

136 astr = “Experian” + RetSt + “Consumer Opt-Out” + RetSt + “701 Experian Parkway” + RetSt + “Allen, TX 75013”

137 Case 3

138 astr = “Trans Union Corporation’s” + RetSt + “Name Removal Option” + RetSt + “P.O. Box 97328” + RetSt + “Jackson,


MS 39288-7328″

139 End Select

140

141 MyWord.Selection.TypeText(astr)

142

143 For i = 1 To 2

 

144 MyWord.Selection.TypeText(RetSt)

145 Next i

146

147 astr = frstTxtBox.Text + ” ” + lstTxtBox.Text + RetSt + currTxtBox.Text + RetSt

148 MyWord.Selection.TypeText(astr)

149

150 For i = 1 To 2 : MyWord.Selection.TypeText(RetSt) : Next i

151

152 currdate = Date.Now

153

154 astr = “Date: ” + currdate + RetSt

155 MyWord.Selection.TypeText(astr)

156

157 For i = 1 To 2 : MyWord.Selection.TypeText(RetSt) : Next i

158

159 astr = “To whom it may concern: ” + RetSt

160 MyWord.Selection.TypeText(astr)

161

162 For i = 1 To 2 : MyWord.Selection.TypeText(RetSt) : Next i

163

164 astr = “I request to have my name removed from your marketing lists. Here is the information you have asked me to include


in my request:” + RetSt

165 MyWord.Selection.TypeText(astr)

G:\Documents and Settings\nemo\My Documents\Visual Studio 2005\Projects\Opt-Out\Opt-Out\MainForm.vb 4

166

167 For i = 1 To 2 : MyWord.Selection.TypeText(RetSt) : Next i

168

169 MyWord.Selection.Font.Size = 11

170

171

172 ‘ Fill out the table

173 ‘=========================

174

175 ro = 6 ‘Numbers of rows

176 co = 2 ‘Numbers of columns

177 MyTable = MyWord.Selection.Tables.Add(MyWord.Selection.Range, ro, co)

178 MyCols = MyTable.Columns

179 MyCols(1).Width = 250

180 MyCols(2).Width = 250

181

182 ‘ Cell (1, 1)

183 MyCell = MyTable.Cell(1, 1)

184 MyCell.Select()

185 MyCell.Split(2)

186 MyWord.Selection.Font.Bold = True

187 MyWord.Selection.TypeText(“FIRST, MIDDLE & LAST NAME”)

188

189 ‘ Cell (2, 1)

190 MyCell = MyTable.Cell(2, 1)

191 MyCell.Select()

192 MyWord.Selection.Font.Bold = False

193 MyWord.Selection.Font.Italic = True

194 MyWord.Selection.TypeText(“(List all name variations, including Jr., Sr., etc.)”)

195

 

196 ‘ Cell (1, 2)

197 MyCell = MyTable.Cell(1, 2)

198 MyCell.Select()

199 MyWord.Selection.TypeText(frstTxtBox.Text + ” ” + midTxtBox.Text + ” ” + lstTxtBox.Text)

200

201 ‘————————————————————————————–

202 ‘ Cell (3, 1)

203 MyCell = MyTable.Cell(3, 1)

204 MyCell.Select()

205 MyWord.Selection.Font.Bold = True

206 MyWord.Selection.TypeText(“CURRENT MAILING ADDRESS”)

207

208 ‘ Cell (3, 2)

209 MyCell = MyTable.Cell(3, 2)

210 MyCell.Select()

211 MyWord.Selection.TypeText(currTxtBox.Text)

212

213 ‘—————————————————————————————

214 ‘ Cell (4, 1)

215 MyCell = MyTable.Cell(4, 1)

216 MyCell.Select()

217 MyCell.Split(2)

218 MyWord.Selection.Font.Bold = True

219 MyWord.Selection.TypeText(“PREVIOUS MAILING ADDRESS”)

220

221 ‘ Cell (5, 1)

G:\Documents and Settings\nemo\My Documents\Visual Studio 2005\Projects\Opt-Out\Opt-Out\MainForm.vb 5

222 MyCell = MyTable.Cell(5, 1)

223 MyCell.Select()

224 MyWord.Selection.Font.Italic = True

225 MyWord.Selection.Font.Bold = False

226 MyWord.Selection.TypeText(“(Fill in your previous mailing address if you have moved in the last 6 months.)” + RetSt +

“Note: not required by Equifax and Experian.”)

227

228 If flag = 3 Then

229 MyCell = MyTable.Cell(4, 2)

230 MyCell.Select()

231 MyWord.Selection.TypeText(prevTxtBox.Text)

232 Else

233 MyCell = MyTable.Cell(4, 2)

234 MyCell.Select()

235 MyWord.Selection.TypeText(“”)

236 End If

237

238 ‘ Cell (6, 1)

239 MyCell = MyTable.Cell(6, 1)

240 MyCell.Select()

241 MyCell.Split(2)

242 MyWord.Selection.Font.Bold = True

243 MyWord.Selection.TypeText(“SOCIAL SECURITY NUMBER”)

244

245 ‘ Cell (7, 1)

246 MyCell = MyTable.Cell(7, 1)

247 MyCell.Select()

248 MyWord.Selection.Font.Bold = False

249 MyWord.Selection.Font.Italic = True

250 MyWord.Selection.TypeText(“Note: not required by Experian.”)

251

252 If flag = 1 Or flag = 3 Then

253 MyCell = MyTable.Cell(6, 2) : MyCell.Select() : MyWord.Selection.TypeText(ssnTxtBox.Text)

254 Else

255 MyCell = MyTable.Cell(6, 2) : MyCell.Select() : MyWord.Selection.TypeText(“”)

256 End If

257

258 ‘ Cell (8, 1)

259 MyCell = MyTable.Cell(8, 1)

260 MyCell.Select()

261 MyCell.Split(2)

262 MyWord.Selection.Font.Bold = True

263 MyWord.Selection.TypeText(“DATE OF BIRTH”)

264

265 ‘ Cell (9, 1)

266 MyCell = MyTable.Cell(9, 1)

267 MyCell.Select()

268 MyWord.Selection.Font.Bold = False

269 MyWord.Selection.Font.Italic = True

270 MyWord.Selection.TypeText(“Note: not required by Equifax and Experian.”)

271

272 If flag = 3 Then

273 MyCell = MyTable.Cell(8, 2) : MyCell.Select() : MyWord.Selection.TypeText(DateTimePicker.Value.ToShortDateString)

274 Else

275 MyCell = MyTable.Cell(8, 2) : MyCell.Select() : MyWord.Selection.TypeText(“”)

276 End If

G:\Documents and Settings\nemo\My Documents\Visual Studio 2005\Projects\Opt-Out\Opt-Out\MainForm.vb 6

277

278 ‘Exit from table

279 MyCell = MyTable.Cell(10, 2) : MyCell.Select()

280 MyCell = Nothing

281 MyWord.Selection.GoToNext(Word.WdGoToItem.wdGoToLine)

282

283 For i = 1 To 3 : MyWord.Selection.TypeText(RetSt) : Next i

284

285 MyWord.Selection.Font.Size = 12

286

287 MyWord.Selection.TypeText(“Thank you for your prompt handling of my request.”)

288

289 For i = 1 To 3 : MyWord.Selection.TypeText(RetSt) : Next i

290

291 MyWord.Selection.TypeText(“_______________________________”)

292 MyWord.Selection.TypeText(RetSt)

293 MyWord.Selection.Font.Bold = True

294 MyWord.Selection.Font.Size = 10

295 MyWord.Selection.TypeText(“SIGNATURE of ” + frstTxtBox.Text + ” ” + lstTxtBox.Text)

296

297

298 End Sub

299 #End Region

300

301 ‘ Mouse Clicked Events

302 ‘=========================

303 #Region “Mouse Clicked Methods”

304 Private Sub frstTxtBox_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles frstTxtBox.

MouseClick

305

306 frstTxtBox.Text = “”

307 frstTxtBox.BackColor = Color.White

308

309 End Sub

310

311 Private Sub midTxtBox_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles midTxtBox.

MouseClick

312

313 midTxtBox.Text = “”

314 midTxtBox.BackColor = Color.White

315

316 End Sub

317

318 Private Sub lstTxtBox_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lstTxtBox.

MouseClick

319

320 lstTxtBox.Text = “”

321 lstTxtBox.BackColor = Color.White

322

323 End Sub

324

325 Private Sub currTxtBox_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles currTxtBox.

MouseClick

326

327 currTxtBox.Text = “”

328 currTxtBox.BackColor = Color.White

G:\Documents and Settings\nemo\My Documents\Visual Studio 2005\Projects\Opt-Out\Opt-Out\MainForm.vb 7

329

330 End Sub

331

332 Private Sub prevTxtBox_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles prevTxtBox.

MouseClick

333

334 prevTxtBox.Text = “”

335 prevTxtBox.BackColor = Color.White

336

337 End Sub

338

339 Private Sub ssnTxtBox_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ssnTxtBox.

MouseClick

340

341 ssnTxtBox.Text = “”

342 ssnTxtBox.BackColor = Color.White

343

344 End Sub

345

346 #End Region

347

348 End Class

349

____________________________________________________________________________________________________

====================================================================================================

G:\Documents and Settings\nemo\My Documents\Visual Studio 2005\Projects\Opt-Out\Opt-Out\ErrorCheck.vb 1

1 Module ErrorCheck

23

#Region “String Error Check”

4 Public Function strErrorCheck() As Integer

56

If MainForm.frstTxtBox.Text = “” Then

7 MsgBox(“Please, Enter your First Name”, vbCritical)

8 MainForm.frstTxtBox.BackColor = Color.Yellow

9 strErrorCheck = 1

10 Exit Function

11 End If

12

13 If MainForm.midTxtBox.Text = “” Then

14 MsgBox(“Please, Enter your Middle Name or select the middle Name Text Field and then press the spaceBar”, vbCritical)

15 MainForm.midTxtBox.BackColor = Color.Yellow

16 strErrorCheck = 1

17 Exit Function

18 End If

19

20 If MainForm.lstTxtBox.Text = “” Then

21 MsgBox(“Please, Enter your Last Name”, vbCritical)

22 MainForm.lstTxtBox.BackColor = Color.Yellow

23 strErrorCheck = 1

24 Exit Function

25 End If

26

27 If MainForm.currTxtBox.Text = “” Then

28 MsgBox(“Please, Enter your Current Address”, vbCritical)

29 MainForm.currTxtBox.BackColor = Color.Yellow

30 strErrorCheck = 1

31 Exit Function

32 End If

33

34 If MainForm.prevTxtBox.Text = “” Then

35 MsgBox(“Please, Enter your Previous Address or select Previous Address Text Field and then press the spaceBar”,

vbCritical)

36 MainForm.prevTxtBox.BackColor = Color.Yellow

37 strErrorCheck = 1

38 Exit Function

39 End If

40

41 End Function

42

43 #End Region

44

45 #Region “SSN Error Check”

46 Public Function ssnErrorCheck() As Integer

47

48 Dim iLength As Integer

49 Dim ssnStr As String

50 Dim str As String

51

52

53 iLength = Trim(MainForm.ssnTxtBox.Text).Length()

54

55 If Not IsNumeric(MainForm.ssnTxtBox.Text) Then

G:\Documents and Settings\nemo\My Documents\Visual Studio 2005\Projects\Opt-Out\Opt-Out\ErrorCheck.vb 2

56 MsgBox(“Please, Enter a 9 Digits SSN”, MsgBoxStyle.Critical)

57 MainForm.ssnTxtBox.BackColor = Color.Yellow

58 ssnErrorCheck = 1

59 Exit Function

60 End If

61

62 If Not (iLength = 9) Then

63 MsgBox(“Please, Enter a 9 Digits SSN”, MsgBoxStyle.Critical)

64 MainForm.ssnTxtBox.BackColor = Color.Yellow

65 ssnErrorCheck = 1

66 Exit Function

67 End If

68

69 str = Trim(MainForm.ssnTxtBox.Text)

70 ssnStr = Mid(str, 1, 3) + “-” + Mid(str, 4, 2) + “-” + Mid(str, 6, 4)

71 MainForm.ssnTxtBox.Text = ssnStr

72

73 End Function

74

75 #End Region

76

77 End Module

78

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

 
%d bloggers like this: