API tools faq
paste
Guest User

Untitled

a guest
Jul 16th, 2018
78
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 23.96 KB | None | 0 0
raw download clone embed print report
  1. Dim img As New Bitmap(imgPic.Image) 'Dim img As New Bitmap(Preview.Image)
  2. Dim g = Graphics.FromImage(img)
  3.  
  4. Dim myBrush As Brush
  5. myBrush = New SolidBrush(Color.FromArgb(opac, KryptonColorButton1.SelectedColor))
  6. Dim sz As SizeF = g.MeasureString(TxtImg.Text, FontDialog1.Font)
  7.  
  8. Dim phWidth As Integer = img.Width
  9. Dim phHeight As Integer = img.Height
  10. If CUShort(Math.Truncate(sz.Width)) < CUShort(phWidth) Then
  11. End If
  12.  
  13. Dim yPixlesFromBottom As Integer = 0
  14. Dim yPosFromBottom As Single = 0
  15. Dim xCenterOfImg As Single = 0
  16.  
  17. If BottomCenter.Checked = True Then
  18. 'Since all photographs will have varying heights, determine a
  19. 'position 5% from the bottom of the image
  20. yPixlesFromBottom = CInt(Math.Truncate(phHeight * 0.05))
  21.  
  22. 'Now that we have a point size use the m_Copyrights string height
  23. 'to determine a y-coordinate to draw the string of the photograph
  24. yPosFromBottom = ((phHeight - yPixlesFromBottom) - (sz.Height / 2))
  25.  
  26. 'Determine its x-coordinate by calculating the center of the width of the image
  27. xCenterOfImg = (phWidth 2)
  28. If MiddleCenter.Checked = True Then
  29. yPixlesFromBottom = CInt(Math.Truncate(phHeight * 0.5))
  30. yPosFromBottom = ((phHeight - yPixlesFromBottom) - (sz.Height / 2))
  31. xCenterOfImg = (phWidth 2)
  32. If X = 0 And Y = 0 Then
  33. If cboAngle.SelectedIndex = 0 Then
  34. g.SmoothingMode = SmoothingMode.HighQuality
  35. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  36. g.TranslateTransform(380, 355)
  37. g.RotateTransform(0)
  38. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  39. g.ResetTransform()
  40. End If
  41. If cboAngle.SelectedIndex = 1 Then
  42. g.SmoothingMode = SmoothingMode.HighQuality
  43. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  44. g.TranslateTransform(400, 355)
  45. g.RotateTransform(45)
  46. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  47. g.ResetTransform()
  48. End If
  49. If cboAngle.SelectedIndex = 2 Then
  50. g.SmoothingMode = SmoothingMode.HighQuality
  51. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  52. g.TranslateTransform(440, 370)
  53. g.RotateTransform(90)
  54. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  55. g.ResetTransform()
  56. End If
  57. If cboAngle.SelectedIndex = 3 Then
  58. g.SmoothingMode = SmoothingMode.HighQuality
  59. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  60. g.TranslateTransform(650, 410)
  61. g.RotateTransform(180)
  62. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  63. g.ResetTransform()
  64. End If
  65. If cboAngle.SelectedIndex = 4 Then
  66. g.SmoothingMode = SmoothingMode.HighQuality
  67. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  68. g.TranslateTransform(380, 640)
  69. g.RotateTransform(270)
  70. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  71. g.ResetTransform()
  72. End If
  73. If cboAngle.SelectedIndex = 5 Then
  74. g.SmoothingMode = SmoothingMode.HighQuality
  75. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  76. g.TranslateTransform(380, 355)
  77. g.RotateTransform(360)
  78. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  79. g.ResetTransform()
  80. End If
  81. End If
  82. Else
  83. If MiddleLeft.Checked = True Then
  84. yPixlesFromBottom = CInt(Math.Truncate(phHeight * 0.5))
  85. yPosFromBottom = ((phHeight - yPixlesFromBottom) - (sz.Height / 2))
  86. xCenterOfImg = (sz.Width / 2) + 10
  87. If X = 0 And Y = 0 Then
  88. If cboAngle.SelectedIndex = 0 Then
  89. g.SmoothingMode = SmoothingMode.HighQuality
  90. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  91. g.TranslateTransform(10, 365)
  92. g.RotateTransform(0)
  93. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  94. g.ResetTransform()
  95. End If
  96. If cboAngle.SelectedIndex = 1 Then
  97. g.SmoothingMode = SmoothingMode.HighQuality
  98. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  99. g.TranslateTransform(30, 355)
  100. g.RotateTransform(45)
  101. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  102. g.ResetTransform()
  103. End If
  104. If cboAngle.SelectedIndex = 2 Then
  105. g.SmoothingMode = SmoothingMode.HighQuality
  106. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  107. g.TranslateTransform(50, 370)
  108. g.RotateTransform(90)
  109. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  110. g.ResetTransform()
  111. End If
  112. If cboAngle.SelectedIndex = 3 Then
  113. g.SmoothingMode = SmoothingMode.HighQuality
  114. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  115. g.TranslateTransform(280, 420)
  116. g.RotateTransform(180)
  117. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  118. g.ResetTransform()
  119. End If
  120. If cboAngle.SelectedIndex = 4 Then
  121. g.SmoothingMode = SmoothingMode.HighQuality
  122. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  123. g.TranslateTransform(20, 650)
  124. g.RotateTransform(270)
  125. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  126. g.ResetTransform()
  127. End If
  128. If cboAngle.SelectedIndex = 5 Then
  129. g.SmoothingMode = SmoothingMode.HighQuality
  130. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  131. g.TranslateTransform(10, 300)
  132. g.RotateTransform(360)
  133. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  134. g.ResetTransform()
  135. End If
  136. End If
  137. Else
  138. If MiddleRight.Checked = True Then
  139. yPixlesFromBottom = CInt(Math.Truncate(phHeight * 0.5))
  140. yPosFromBottom = ((phHeight - yPixlesFromBottom) - (sz.Height / 2))
  141. xCenterOfImg = (phWidth - (sz.Width / 2)) - 10
  142. If X = 0 And Y = 0 Then
  143. If cboAngle.SelectedIndex = 0 Then
  144. g.SmoothingMode = SmoothingMode.HighQuality
  145. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  146. g.TranslateTransform(740, 365)
  147. g.RotateTransform(0)
  148. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  149. g.ResetTransform()
  150. End If
  151. If cboAngle.SelectedIndex = 1 Then
  152. g.SmoothingMode = SmoothingMode.HighQuality
  153. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  154. g.TranslateTransform(770, 355)
  155. g.RotateTransform(45)
  156. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  157. g.ResetTransform()
  158. End If
  159. If cboAngle.SelectedIndex = 2 Then
  160. g.SmoothingMode = SmoothingMode.HighQuality
  161. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  162. g.TranslateTransform(820, 360)
  163. g.RotateTransform(90)
  164. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  165. g.ResetTransform()
  166. End If
  167. If cboAngle.SelectedIndex = 3 Then
  168. g.SmoothingMode = SmoothingMode.HighQuality
  169. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  170. g.TranslateTransform(1010, 410)
  171. g.RotateTransform(180)
  172. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  173. g.ResetTransform()
  174. End If
  175. If cboAngle.SelectedIndex = 4 Then
  176. g.SmoothingMode = SmoothingMode.HighQuality
  177. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  178. g.TranslateTransform(760, 640)
  179. g.RotateTransform(270)
  180. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  181. g.ResetTransform()
  182. End If
  183. If cboAngle.SelectedIndex = 5 Then
  184. g.SmoothingMode = SmoothingMode.HighQuality
  185. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  186. g.TranslateTransform(750, 300)
  187. g.RotateTransform(360)
  188. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  189. g.ResetTransform()
  190. End If
  191. End If
  192. Else
  193. If TopCenter.Checked = True Then
  194. yPixlesFromBottom = CInt(Math.Truncate(phHeight * 0.95))
  195. yPosFromBottom = ((phHeight - yPixlesFromBottom) - (sz.Height / 2))
  196. xCenterOfImg = (phWidth 2)
  197. If cboAngle.SelectedIndex = 0 Then
  198. g.SmoothingMode = SmoothingMode.HighQuality
  199. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  200. g.TranslateTransform(400, 0)
  201. g.RotateTransform(0)
  202. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  203. g.ResetTransform()
  204. End If
  205. If cboAngle.SelectedIndex = 1 Then
  206. g.SmoothingMode = SmoothingMode.HighQuality
  207. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  208. g.TranslateTransform(400, 0)
  209. g.RotateTransform(45)
  210. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  211. g.ResetTransform()
  212. End If
  213. If cboAngle.SelectedIndex = 2 Then
  214. g.SmoothingMode = SmoothingMode.HighQuality
  215. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  216. g.TranslateTransform(400, 0)
  217. g.RotateTransform(90)
  218. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  219. g.ResetTransform()
  220. End If
  221. If cboAngle.SelectedIndex = 3 Then
  222. g.SmoothingMode = SmoothingMode.HighQuality
  223. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  224. g.TranslateTransform(650, 60)
  225. g.RotateTransform(180)
  226. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  227. g.ResetTransform()
  228. End If
  229. If cboAngle.SelectedIndex = 4 Then
  230. g.SmoothingMode = SmoothingMode.HighQuality
  231. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  232. g.TranslateTransform(400, 280)
  233. g.RotateTransform(270)
  234. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  235. g.ResetTransform()
  236. End If
  237. If cboAngle.SelectedIndex = 5 Then
  238. g.SmoothingMode = SmoothingMode.HighQuality
  239. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  240. g.TranslateTransform(400, 0)
  241. g.RotateTransform(360)
  242. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  243. g.ResetTransform()
  244. End If
  245.  
  246. Else
  247. If TopLeft.Checked = True Then
  248. yPixlesFromBottom = CInt(Math.Truncate(phHeight * 0.95))
  249. yPosFromBottom = ((phHeight - yPixlesFromBottom) - (sz.Height / 2))
  250. xCenterOfImg = (sz.Width / 2) + 10
  251. If X = 0 And Y = 0 Then
  252. If cboAngle.SelectedIndex = 0 Then
  253. g.SmoothingMode = SmoothingMode.HighQuality
  254. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  255. g.TranslateTransform(10, 10)
  256. g.RotateTransform(0)
  257. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  258. g.ResetTransform()
  259. End If
  260. If cboAngle.SelectedIndex = 1 Then
  261. g.SmoothingMode = SmoothingMode.HighQuality
  262. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  263. g.TranslateTransform(40, 0)
  264. g.RotateTransform(45)
  265. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  266. g.ResetTransform()
  267. End If
  268. If cboAngle.SelectedIndex = 2 Then
  269. g.SmoothingMode = SmoothingMode.HighQuality
  270. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  271. g.TranslateTransform(60, 10)
  272. g.RotateTransform(90)
  273. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  274. g.ResetTransform()
  275. End If
  276. If cboAngle.SelectedIndex = 3 Then
  277. g.SmoothingMode = SmoothingMode.HighQuality
  278. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  279. g.TranslateTransform(280, 70)
  280. g.RotateTransform(180)
  281. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  282. g.ResetTransform()
  283. End If
  284. If cboAngle.SelectedIndex = 4 Then
  285. g.SmoothingMode = SmoothingMode.HighQuality
  286. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  287. g.TranslateTransform(10, 300)
  288. g.RotateTransform(270)
  289. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  290. g.ResetTransform()
  291. End If
  292. If cboAngle.SelectedIndex = 5 Then
  293. g.SmoothingMode = SmoothingMode.HighQuality
  294. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  295. g.TranslateTransform(10, 10)
  296. g.RotateTransform(360)
  297. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  298. g.ResetTransform()
  299. End If
  300. End If
  301. Else
  302. If TopRight.Checked = True Then
  303. yPixlesFromBottom = CInt(Math.Truncate(phHeight * 0.95))
  304. yPosFromBottom = ((phHeight - yPixlesFromBottom) - (sz.Height / 2))
  305. xCenterOfImg = (phWidth - (sz.Width / 2)) - 10
  306. If cboAngle.SelectedIndex = 0 Then
  307. g.SmoothingMode = SmoothingMode.HighQuality
  308. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  309. g.TranslateTransform(750, 10)
  310. g.RotateTransform(0)
  311. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  312. g.ResetTransform()
  313. End If
  314. If cboAngle.SelectedIndex = 1 Then
  315. g.SmoothingMode = SmoothingMode.HighQuality
  316. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  317. g.TranslateTransform(760, 10)
  318. g.RotateTransform(45)
  319. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  320. g.ResetTransform()
  321. End If
  322. If cboAngle.SelectedIndex = 2 Then
  323. g.SmoothingMode = SmoothingMode.HighQuality
  324. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  325. g.TranslateTransform(780, 10)
  326. g.RotateTransform(90)
  327. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  328. g.ResetTransform()
  329. End If
  330. If cboAngle.SelectedIndex = 3 Then
  331. g.SmoothingMode = SmoothingMode.HighQuality
  332. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  333. g.TranslateTransform(1010, 70)
  334. g.RotateTransform(-180)
  335. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  336. g.ResetTransform()
  337. End If
  338. If cboAngle.SelectedIndex = 4 Then
  339. g.SmoothingMode = SmoothingMode.HighQuality
  340. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  341. g.TranslateTransform(750, 280)
  342. g.RotateTransform(270)
  343. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  344. g.ResetTransform()
  345. End If
  346. If cboAngle.SelectedIndex = 5 Then
  347. g.SmoothingMode = SmoothingMode.HighQuality
  348. g.TextRenderingHint = TextRenderingHint.AntiAliasGridFit
  349. g.TranslateTransform(750, 10)
  350. g.RotateTransform(360)
  351. g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New Point(X, Y))
  352. g.ResetTransform()
  353. End If
  354. End If
  355. End If
  356. End If
  357. End If
  358. End If
  359. End If
  360. End If
  361. End If
  362. End If
  363.  
  364.  
  365.  
  366. Dim StrFormat As New StringFormat()
  367. StrFormat.Alignment = StringAlignment.Center
  368. 'g.DrawString(TxtImg.Text, FontDialog1.Font, myBrush, New PointF(xCenterOfImg + 1, yPosFromBottom + 1), StrFormat)
  369. imgPreview.Image = img
  370. imgPic.Hide()
  371. imgPreview.Show()
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!