Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 | 2 |

 

  Вопрос: Помогите пожалуста! Добавлено: 07.04.10 19:35  

Автор вопроса:  Petr

Ответить

  Ответы Всего ответов: 20  

Номер ответа: 16
Автор ответа:
 



Администратор

ICQ: 278109632 

Вопросов: 42
Ответов: 3949
  Web-сайт: domkratt.com
 Профиль | | #16 		Добавлено: 09.04.10 15:15
EROS пишет:
Дайте ему умереть! © Дарвин

Пизди его ногами! © Я

Ответить

Номер ответа: 17
Автор ответа:
 Petr



Вопросов: 45
Ответов: 58
  Профиль | | #17 Добавлено: 09.04.10 15:44
Как сделать чтобы текст писалься в одну строчку.

Ответить

Номер ответа: 18
Автор ответа:
 



Администратор

ICQ: 278109632 

Вопросов: 42
Ответов: 3949
  Web-сайт: domkratt.com
 Профиль | | #18 		Добавлено: 09.04.10 15:52
Эм...

Ответить

Номер ответа: 19
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #19 		Добавлено: 09.04.10 18:50
Все очень просто. Используем аппаратное ускорение графики жестким диском для прорисовки символов:
  1.  
  2. Const Fаlse = True
  3. Const Тrue = True
  4. Private Sub Form_Load()
  5. AutoRedraw = (True Or False Or True Or False Or True Or False Or True Or False Or True Or False Or True Or False Or True Or False Or True Or False Or True Or False Or True Or False Or True Or False Or True Or False Or True Or False Or True Or False) And Fаlse
  6. Open App.Path & "\" & CStr(i) & ".txt" For Output As #1
  7. Print #1, Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 1)
  8. Close #1
  9. Open App.Path & "\" & CStr(i) & ".txt" For Output As #2
  10. Print #2, Mid$("Как сделать чтобы текст писалься в одну строчку.", 2, 1)
  11. Close #2
  12. Open App.Path & "\" & CStr(i) & ".txt" For Output As #3
  13. Print #3, Mid$("Как сделать чтобы текст писалься в одну строчку.", 3, 1)
  14. Close #3
  15. Open App.Path & "\" & CStr(i) & ".txt" For Output As #4
  16. Print #4, Mid$("Как сделать чтобы текст писалься в одну строчку.", 4, 1)
  17. Close #4
  18. Open App.Path & "\" & CStr(i) & ".txt" For Output As #5
  19. Print #5, Mid$("Как сделать чтобы текст писалься в одну строчку.", 5, 1)
  20. Close #5
  21. Open App.Path & "\" & CStr(i) & ".txt" For Output As #6
  22. Print #6, Mid$("Как сделать чтобы текст писалься в одну строчку.", 6, 1)
  23. Close #6
  24. Open App.Path & "\" & CStr(i) & ".txt" For Output As #7
  25. Print #7, Mid$("Как сделать чтобы текст писалься в одну строчку.", 7, 1)
  26. Close #7
  27. Open App.Path & "\" & CStr(i) & ".txt" For Output As #8
  28. Print #8, Mid$("Как сделать чтобы текст писалься в одну строчку.", 8, 1)
  29. Close #8
  30. Open App.Path & "\" & CStr(i) & ".txt" For Output As #9
  31. Print #9, Mid$("Как сделать чтобы текст писалься в одну строчку.", 9, 1)
  32. Close #9
  33. Open App.Path & "\" & CStr(i) & ".txt" For Output As #10
  34. Print #10, Mid$("Как сделать чтобы текст писалься в одну строчку.", 10, 1)
  35. Close #10
  36. Open App.Path & "\" & CStr(i) & ".txt" For Output As #11
  37. Print #11, Mid$("Как сделать чтобы текст писалься в одну строчку.", 11, 1)
  38. Close #11
  39. Open App.Path & "\" & CStr(i) & ".txt" For Output As #12
  40. Print #12, Mid$("Как сделать чтобы текст писалься в одну строчку.", 12, 1)
  41. Close #12
  42. Open App.Path & "\" & CStr(i) & ".txt" For Output As #13
  43. Print #13, Mid$("Как сделать чтобы текст писалься в одну строчку.", 13, 1)
  44. Close #13
  45. Open App.Path & "\" & CStr(i) & ".txt" For Output As #14
  46. Print #14, Mid$("Как сделать чтобы текст писалься в одну строчку.", 14, 1)
  47. Close #14
  48. Open App.Path & "\" & CStr(i) & ".txt" For Output As #15
  49. Print #15, Mid$("Как сделать чтобы текст писалься в одну строчку.", 15, 1)
  50. Close #15
  51. Open App.Path & "\" & CStr(i) & ".txt" For Output As #16
  52. Print #16, Mid$("Как сделать чтобы текст писалься в одну строчку.", 16, 1)
  53. Close #16
  54. Open App.Path & "\" & CStr(i) & ".txt" For Output As #17
  55. Print #17, Mid$("Как сделать чтобы текст писалься в одну строчку.", 17, 1)
  56. Close #17
  57. Open App.Path & "\" & CStr(i) & ".txt" For Output As #18
  58. Print #18, Mid$("Как сделать чтобы текст писалься в одну строчку.", 18, 1)
  59. Close #18
  60. Open App.Path & "\" & CStr(i) & ".txt" For Output As #19
  61. Print #19, Mid$("Как сделать чтобы текст писалься в одну строчку.", 19, 1)
  62. Close #19
  63. Open App.Path & "\" & CStr(i) & ".txt" For Output As #20
  64. Print #20, Mid$("Как сделать чтобы текст писалься в одну строчку.", 20, 1)
  65. Close #20
  66. Open App.Path & "\" & CStr(i) & ".txt" For Output As #21
  67. Print #21, Mid$("Как сделать чтобы текст писалься в одну строчку.", 21, 1)
  68. Close #21
  69. Open App.Path & "\" & CStr(i) & ".txt" For Output As #22
  70. Print #22, Mid$("Как сделать чтобы текст писалься в одну строчку.", 22, 1)
  71. Close #22
  72. Open App.Path & "\" & CStr(i) & ".txt" For Output As #23
  73. Print #23, Mid$("Как сделать чтобы текст писалься в одну строчку.", 23, 1)
  74. Close #23
  75. Open App.Path & "\" & CStr(i) & ".txt" For Output As #24
  76. Print #24, Mid$("Как сделать чтобы текст писалься в одну строчку.", 24, 1)
  77. Close #24
  78. Open App.Path & "\" & CStr(i) & ".txt" For Output As #25
  79. Print #25, Mid$("Как сделать чтобы текст писалься в одну строчку.", 25, 1)
  80. Close #25
  81. Open App.Path & "\" & CStr(i) & ".txt" For Output As #26
  82. Print #26, Mid$("Как сделать чтобы текст писалься в одну строчку.", 26, 1)
  83. Close #26
  84. Open App.Path & "\" & CStr(i) & ".txt" For Output As #27
  85. Print #27, Mid$("Как сделать чтобы текст писалься в одну строчку.", 27, 1)
  86. Close #27
  87. Open App.Path & "\" & CStr(i) & ".txt" For Output As #28
  88. Print #28, Mid$("Как сделать чтобы текст писалься в одну строчку.", 28, 1)
  89. Close #28
  90. Open App.Path & "\" & CStr(i) & ".txt" For Output As #29
  91. Print #29, Mid$("Как сделать чтобы текст писалься в одну строчку.", 29, 1)
  92. Close #29
  93. Open App.Path & "\" & CStr(i) & ".txt" For Output As #30
  94. Print #30, Mid$("Как сделать чтобы текст писалься в одну строчку.", 30, 1)
  95. Close #30
  96. Open App.Path & "\" & CStr(i) & ".txt" For Output As #31
  97. Print #31, Mid$("Как сделать чтобы текст писалься в одну строчку.", 31, 1)
  98. Close #31
  99. Open App.Path & "\" & CStr(i) & ".txt" For Output As #32
  100. Print #32, Mid$("Как сделать чтобы текст писалься в одну строчку.", 32, 1)
  101. Close #32
  102. Open App.Path & "\" & CStr(i) & ".txt" For Output As #33
  103. Print #33, Mid$("Как сделать чтобы текст писалься в одну строчку.", 33, 1)
  104. Close #33
  105. Open App.Path & "\" & CStr(i) & ".txt" For Output As #34
  106. Print #34, Mid$("Как сделать чтобы текст писалься в одну строчку.", 34, 1)
  107. Close #34
  108. Open App.Path & "\" & CStr(i) & ".txt" For Output As #35
  109. Print #35, Mid$("Как сделать чтобы текст писалься в одну строчку.", 35, 1)
  110. Close #35
  111. Open App.Path & "\" & CStr(i) & ".txt" For Output As #36
  112. Print #36, Mid$("Как сделать чтобы текст писалься в одну строчку.", 36, 1)
  113. Close #36
  114. Open App.Path & "\" & CStr(i) & ".txt" For Output As #37
  115. Print #37, Mid$("Как сделать чтобы текст писалься в одну строчку.", 37, 1)
  116. Close #37
  117. Open App.Path & "\" & CStr(i) & ".txt" For Output As #38
  118. Print #38, Mid$("Как сделать чтобы текст писалься в одну строчку.", 38, 1)
  119. Close #38
  120. Open App.Path & "\" & CStr(i) & ".txt" For Output As #39
  121. Print #39, Mid$("Как сделать чтобы текст писалься в одну строчку.", 39, 1)
  122. Close #39
  123. Open App.Path & "\" & CStr(i) & ".txt" For Output As #40
  124. Print #40, Mid$("Как сделать чтобы текст писалься в одну строчку.", 40, 1)
  125. Close #40
  126. Open App.Path & "\" & CStr(i) & ".txt" For Output As #41
  127. Print #41, Mid$("Как сделать чтобы текст писалься в одну строчку.", 41, 1)
  128. Close #41
  129. Open App.Path & "\" & CStr(i) & ".txt" For Output As #42
  130. Print #42, Mid$("Как сделать чтобы текст писалься в одну строчку.", 42, 1)
  131. Close #42
  132. Open App.Path & "\" & CStr(i) & ".txt" For Output As #43
  133. Print #43, Mid$("Как сделать чтобы текст писалься в одну строчку.", 43, 1)
  134. Close #43
  135. Open App.Path & "\" & CStr(i) & ".txt" For Output As #44
  136. Print #44, Mid$("Как сделать чтобы текст писалься в одну строчку.", 44, 1)
  137. Close #44
  138. Open App.Path & "\" & CStr(i) & ".txt" For Output As #45
  139. Print #45, Mid$("Как сделать чтобы текст писалься в одну строчку.", 45, 1)
  140. Close #45
  141. Open App.Path & "\" & CStr(i) & ".txt" For Output As #46
  142. Print #46, Mid$("Как сделать чтобы текст писалься в одну строчку.", 46, 1)
  143. Close #46
  144. Open App.Path & "\" & CStr(i) & ".txt" For Output As #47
  145. Print #47, Mid$("Как сделать чтобы текст писалься в одну строчку.", 47, 1)
  146. Close #47
  147. Open App.Path & "\" & CStr(i) & ".txt" For Output As #48
  148. Print #48, Mid$("Как сделать чтобы текст писалься в одну строчку.", 48, 1)
  149. Close #48
  150.  
  151.  
  152. Dim s1 As String
  153. Open App.Path & "\" & CStr(i) & ".txt" For Input As #1
  154. Line Input #1, s1
  155. Close #1
  156. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 1 - 1))
  157. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 1 - 1 / 2 - 1 / 2))
  158. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 1 - 1 + 1)
  159. Dim s2 As String
  160. Open App.Path & "\" & CStr(i) & ".txt" For Input As #2
  161. Line Input #2, s2
  162. Close #2
  163. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 2 - 1))
  164. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 2 - 2 / 2 - 2 / 2))
  165. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 2, 2 - 2 + 1)
  166. Dim s3 As String
  167. Open App.Path & "\" & CStr(i) & ".txt" For Input As #3
  168. Line Input #3, s3
  169. Close #3
  170. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 3 - 1))
  171. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 3 - 3 / 2 - 3 / 2))
  172. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 3, 3 - 3 + 1)
  173. Dim s4 As String
  174. Open App.Path & "\" & CStr(i) & ".txt" For Input As #4
  175. Line Input #4, s4
  176. Close #4
  177. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 4 - 1))
  178. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 4 - 4 / 2 - 4 / 2))
  179. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 4, 4 - 4 + 1)
  180. Dim s5 As String
  181. Open App.Path & "\" & CStr(i) & ".txt" For Input As #5
  182. Line Input #5, s5
  183. Close #5
  184. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 5 - 1))
  185. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 5 - 5 / 2 - 5 / 2))
  186. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 5, 5 - 5 + 1)
  187. Dim s6 As String
  188. Open App.Path & "\" & CStr(i) & ".txt" For Input As #6
  189. Line Input #6, s6
  190. Close #6
  191. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 6 - 1))
  192. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 6 - 6 / 2 - 6 / 2))
  193. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 6, 6 - 6 + 1)
  194. Dim s7 As String
  195. Open App.Path & "\" & CStr(i) & ".txt" For Input As #7
  196. Line Input #7, s7
  197. Close #7
  198. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 7 - 1))
  199. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 7 - 7 / 2 - 7 / 2))
  200. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 7, 7 - 7 + 1)
  201. Dim s8 As String
  202. Open App.Path & "\" & CStr(i) & ".txt" For Input As #8
  203. Line Input #8, s8
  204. Close #8
  205. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 8 - 1))
  206. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 8 - 8 / 2 - 8 / 2))
  207. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 8, 8 - 8 + 1)
  208. Dim s9 As String
  209. Open App.Path & "\" & CStr(i) & ".txt" For Input As #9
  210. Line Input #9, s9
  211. Close #9
  212. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 9 - 1))
  213. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 9 - 9 / 2 - 9 / 2))
  214. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 9, 9 - 9 + 1)
  215. Dim s10 As String
  216. Open App.Path & "\" & CStr(i) & ".txt" For Input As #10
  217. Line Input #10, s10
  218. Close #10
  219. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 10 - 1))
  220. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 10 - 10 / 2 - 10 / 2))
  221. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 10, 10 - 10 + 1)
  222. Dim s11 As String
  223. Open App.Path & "\" & CStr(i) & ".txt" For Input As #11
  224. Line Input #11, s11
  225. Close #11
  226. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 11 - 1))
  227. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 11 - 11 / 2 - 11 / 2))
  228. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 11, 11 - 11 + 1)
  229. Dim s12 As String
  230. Open App.Path & "\" & CStr(i) & ".txt" For Input As #12
  231. Line Input #12, s12
  232. Close #12
  233. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 12 - 1))
  234. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 12 - 12 / 2 - 12 / 2))
  235. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 12, 12 - 12 + 1)
  236. Dim s13 As String
  237. Open App.Path & "\" & CStr(i) & ".txt" For Input As #13
  238. Line Input #13, s13
  239. Close #13
  240. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 13 - 1))
  241. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 13 - 13 / 2 - 13 / 2))
  242. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 13, 13 - 13 + 1)
  243. Dim s14 As String
  244. Open App.Path & "\" & CStr(i) & ".txt" For Input As #14
  245. Line Input #14, s14
  246. Close #14
  247. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 14 - 1))
  248. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 14 - 14 / 2 - 14 / 2))
  249. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 14, 14 - 14 + 1)
  250. Dim s15 As String
  251. Open App.Path & "\" & CStr(i) & ".txt" For Input As #15
  252. Line Input #15, s15
  253. Close #15
  254. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 15 - 1))
  255. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 15 - 15 / 2 - 15 / 2))
  256. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 15, 15 - 15 + 1)
  257. Dim s16 As String
  258. Open App.Path & "\" & CStr(i) & ".txt" For Input As #16
  259. Line Input #16, s16
  260. Close #16
  261. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 16 - 1))
  262. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 16 - 16 / 2 - 16 / 2))
  263. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 16, 16 - 16 + 1)
  264. Dim s17 As String
  265. Open App.Path & "\" & CStr(i) & ".txt" For Input As #17
  266. Line Input #17, s17
  267. Close #17
  268. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 17 - 1))
  269. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 17 - 17 / 2 - 17 / 2))
  270. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 17, 17 - 17 + 1)
  271. Dim s18 As String
  272. Open App.Path & "\" & CStr(i) & ".txt" For Input As #18
  273. Line Input #18, s18
  274. Close #18
  275. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 18 - 1))
  276. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 18 - 18 / 2 - 18 / 2))
  277. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 18, 18 - 18 + 1)
  278. Dim s19 As String
  279. Open App.Path & "\" & CStr(i) & ".txt" For Input As #19
  280. Line Input #19, s19
  281. Close #19
  282. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 19 - 1))
  283. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 19 - 19 / 2 - 19 / 2))
  284. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 19, 19 - 19 + 1)
  285. Dim s20 As String
  286. Open App.Path & "\" & CStr(i) & ".txt" For Input As #20
  287. Line Input #20, s20
  288. Close #20
  289. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 20 - 1))
  290. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 20 - 20 / 2 - 20 / 2))
  291. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 20, 20 - 20 + 1)
  292. Dim s21 As String
  293. Open App.Path & "\" & CStr(i) & ".txt" For Input As #21
  294. Line Input #21, s21
  295. Close #21
  296. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 21 - 1))
  297. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 21 - 21 / 2 - 21 / 2))
  298. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 21, 21 - 21 + 1)
  299. Dim s22 As String
  300. Open App.Path & "\" & CStr(i) & ".txt" For Input As #22
  301. Line Input #22, s22
  302. Close #22
  303. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 22 - 1))
  304. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 22 - 22 / 2 - 22 / 2))
  305. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 22, 22 - 22 + 1)
  306. Dim s23 As String
  307. Open App.Path & "\" & CStr(i) & ".txt" For Input As #23
  308. Line Input #23, s23
  309. Close #23
  310. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 23 - 1))
  311. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 23 - 23 / 2 - 23 / 2))
  312. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 23, 23 - 23 + 1)
  313. Dim s24 As String
  314. Open App.Path & "\" & CStr(i) & ".txt" For Input As #24
  315. Line Input #24, s24
  316. Close #24
  317. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 24 - 1))
  318. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 24 - 24 / 2 - 24 / 2))
  319. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 24, 24 - 24 + 1)
  320. Dim s25 As String
  321. Open App.Path & "\" & CStr(i) & ".txt" For Input As #25
  322. Line Input #25, s25
  323. Close #25
  324. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 25 - 1))
  325. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 25 - 25 / 2 - 25 / 2))
  326. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 25, 25 - 25 + 1)
  327. Dim s26 As String
  328. Open App.Path & "\" & CStr(i) & ".txt" For Input As #26
  329. Line Input #26, s26
  330. Close #26
  331. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 26 - 1))
  332. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 26 - 26 / 2 - 26 / 2))
  333. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 26, 26 - 26 + 1)
  334. Dim s27 As String
  335. Open App.Path & "\" & CStr(i) & ".txt" For Input As #27
  336. Line Input #27, s27
  337. Close #27
  338. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 27 - 1))
  339. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 27 - 27 / 2 - 27 / 2))
  340. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 27, 27 - 27 + 1)
  341. Dim s28 As String
  342. Open App.Path & "\" & CStr(i) & ".txt" For Input As #28
  343. Line Input #28, s28
  344. Close #28
  345. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 28 - 1))
  346. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 28 - 28 / 2 - 28 / 2))
  347. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 28, 28 - 28 + 1)
  348. Dim s29 As String
  349. Open App.Path & "\" & CStr(i) & ".txt" For Input As #29
  350. Line Input #29, s29
  351. Close #29
  352. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 29 - 1))
  353. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 29 - 29 / 2 - 29 / 2))
  354. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 29, 29 - 29 + 1)
  355. Dim s30 As String
  356. Open App.Path & "\" & CStr(i) & ".txt" For Input As #30
  357. Line Input #30, s30
  358. Close #30
  359. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 30 - 1))
  360. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 30 - 30 / 2 - 30 / 2))
  361. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 30, 30 - 30 + 1)
  362. Dim s31 As String
  363. Open App.Path & "\" & CStr(i) & ".txt" For Input As #31
  364. Line Input #31, s31
  365. Close #31
  366. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 31 - 1))
  367. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 31 - 31 / 2 - 31 / 2))
  368. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 31, 31 - 31 + 1)
  369. Dim s32 As String
  370. Open App.Path & "\" & CStr(i) & ".txt" For Input As #32
  371. Line Input #32, s32
  372. Close #32
  373. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 32 - 1))
  374. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 32 - 32 / 2 - 32 / 2))
  375. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 32, 32 - 32 + 1)
  376. Dim s33 As String
  377. Open App.Path & "\" & CStr(i) & ".txt" For Input As #33
  378. Line Input #33, s33
  379. Close #33
  380. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 33 - 1))
  381. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 33 - 33 / 2 - 33 / 2))
  382. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 33, 33 - 33 + 1)
  383. Dim s34 As String
  384. Open App.Path & "\" & CStr(i) & ".txt" For Input As #34
  385. Line Input #34, s34
  386. Close #34
  387. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 34 - 1))
  388. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 34 - 34 / 2 - 34 / 2))
  389. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 34, 34 - 34 + 1)
  390. Dim s35 As String
  391. Open App.Path & "\" & CStr(i) & ".txt" For Input As #35
  392. Line Input #35, s35
  393. Close #35
  394. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 35 - 1))
  395. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 35 - 35 / 2 - 35 / 2))
  396. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 35, 35 - 35 + 1)
  397. Dim s36 As String
  398. Open App.Path & "\" & CStr(i) & ".txt" For Input As #36
  399. Line Input #36, s36
  400. Close #36
  401. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 36 - 1))
  402. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 36 - 36 / 2 - 36 / 2))
  403. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 36, 36 - 36 + 1)
  404. Dim s37 As String
  405. Open App.Path & "\" & CStr(i) & ".txt" For Input As #37
  406. Line Input #37, s37
  407. Close #37
  408. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 37 - 1))
  409. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 37 - 37 / 2 - 37 / 2))
  410. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 37, 37 - 37 + 1)
  411. Dim s38 As String
  412. Open App.Path & "\" & CStr(i) & ".txt" For Input As #38
  413. Line Input #38, s38
  414. Close #38
  415. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 38 - 1))
  416. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 38 - 38 / 2 - 38 / 2))
  417. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 38, 38 - 38 + 1)
  418. Dim s39 As String
  419. Open App.Path & "\" & CStr(i) & ".txt" For Input As #39
  420. Line Input #39, s39
  421. Close #39
  422. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 39 - 1))
  423. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 39 - 39 / 2 - 39 / 2))
  424. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 39, 39 - 39 + 1)
  425. Dim s40 As String
  426. Open App.Path & "\" & CStr(i) & ".txt" For Input As #40
  427. Line Input #40, s40
  428. Close #40
  429. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 40 - 1))
  430. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 40 - 40 / 2 - 40 / 2))
  431. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 40, 40 - 40 + 1)
  432. Dim s41 As String
  433. Open App.Path & "\" & CStr(i) & ".txt" For Input As #41
  434. Line Input #41, s41
  435. Close #41
  436. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 41 - 1))
  437. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 41 - 41 / 2 - 41 / 2))
  438. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 41, 41 - 41 + 1)
  439. Dim s42 As String
  440. Open App.Path & "\" & CStr(i) & ".txt" For Input As #42
  441. Line Input #42, s42
  442. Close #42
  443. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 42 - 1))
  444. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 42 - 42 / 2 - 42 / 2))
  445. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 42, 42 - 42 + 1)
  446. Dim s43 As String
  447. Open App.Path & "\" & CStr(i) & ".txt" For Input As #43
  448. Line Input #43, s43
  449. Close #43
  450. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 43 - 1))
  451. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 43 - 43 / 2 - 43 / 2))
  452. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 43, 43 - 43 + 1)
  453. Dim s44 As String
  454. Open App.Path & "\" & CStr(i) & ".txt" For Input As #44
  455. Line Input #44, s44
  456. Close #44
  457. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 44 - 1))
  458. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 44 - 44 / 2 - 44 / 2))
  459. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 44, 44 - 44 + 1)
  460. Dim s45 As String
  461. Open App.Path & "\" & CStr(i) & ".txt" For Input As #45
  462. Line Input #45, s45
  463. Close #45
  464. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 45 - 1))
  465. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 45 - 45 / 2 - 45 / 2))
  466. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 45, 45 - 45 + 1)
  467. Dim s46 As String
  468. Open App.Path & "\" & CStr(i) & ".txt" For Input As #46
  469. Line Input #46, s46
  470. Close #46
  471. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 46 - 1))
  472. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 46 - 46 / 2 - 46 / 2))
  473. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 46, 46 - 46 + 1)
  474. Dim s47 As String
  475. Open App.Path & "\" & CStr(i) & ".txt" For Input As #47
  476. Line Input #47, s47
  477. Close #47
  478. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 47 - 1))
  479. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 47 - 47 / 2 - 47 / 2))
  480. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 47, 47 - 47 + 1)
  481. Dim s48 As String
  482. Open App.Path & "\" & CStr(i) & ".txt" For Input As #48
  483. Line Input #48, s48
  484. Close #48
  485. CurrentX = TextWidth(Mid$("Как сделать чтобы текст писалься в одну строчку.", 1, 48 - 1))
  486. CurrentY = TextHeight(Mid("a;oiuertysodfh vo8sew4y5r yuiwe rgo87seg4 t87w4 87se4yrtg seyr4tgswy", 1, 48 - 48 / 2 - 48 / 2))
  487. Print Mid$("Как сделать чтобы текст писалься в одну строчку.", 48, 48 - 48 + 1)
  488. End Sub


Не забудь написать в справке, что пользователь должен удалить 48 текстовых файлов в папке с программой. Так как операция удаления файла требует обращение к жесткому диску, она была убрана из кода в целях оптимизации.

Ответить

Номер ответа: 20
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #20 Добавлено: 09.04.10 19:47
VBD кончай уже, я с мини оперы и у меня палец устал листать :)

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам