tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Formの結果をWordへ
投稿日: 2008/01/28(Mon) 12:48
投稿者あんぱん
きちんとルールを読まず2個の掲示板に書き込んで
しまったのは大変申し訳ありませんでした。
お忙しいところすみませんが、
本当によろしくお願いします。
下のがプログラムです。
実行するとFormに結果が出ますよね。
そのFormを印刷することができるのに、
Wordとかにコピーする方法がまったくわかりません。
実行結果ののったForm自体をWordにコピーしたいんです。
教えてください。
Option Explicit

Private Sub Form_Load()
Randomize

  End Sub

Private Sub 印刷_Click()
印刷.Visible = False
Form1.PrintForm
印刷.Visible = True

End Sub

  Private Sub Form_Click()
  
  
CurrentX = -115
CurrentY = 3
Print "0"
CurrentX = -60
CurrentY = 3
Print "15"
CurrentX = 0
CurrentY = 3
Print "20"
CurrentX = 58
CurrentY = 3
Print "25"
CurrentX = 115
CurrentY = 3
Print "30"
CurrentX = -100
CurrentY = -65
Print "25℃に集まる"

  Static X As Long
  Static Y As Long
  Dim Z As Single
  Dim T25 As Single
  Dim i As Long
  

DrawWidth = 3
  



Line (-120, 0)-(-90, 0), QBColor(2)
Line (-90, 0)-(-30, 0), QBColor(10)
Line (-30, 0)-(30, 0), QBColor(14)
Line (30, 0)-(90, 0), QBColor(12)
Line (90, 0)-(120, 0), QBColor(4)
Do While i <= 10000

DrawWidth = 1

Z = Rnd
T25 = 60 - X

If X >= 0 Then
If Z <= 0.25 Then
If T25 >= 0 Then
  
Line (X, Y)-(X + 1, Y), QBColor(0)
X = X + 1
End If


If T25 < 0 Then
  
Line (X, Y)-(X - 1, Y), QBColor(0)
X = X - 1
End If
End If

If Z > 0.25 And Z <= 0.5 Then
If T25 < 0 Then

Line (X, Y)-(X - 1, Y), QBColor(0)
X = X - 1
End If
  
If T25 >= 0 Then
  
Line (X, Y)-(X + 1, Y), QBColor(0)
X = X + 1

End If
End If

If Z > 0.5 And Z <= 0.75 Then
  
Line (X, Y)-(X, Y + 1), QBColor(0)
Y = Y + 1
  
End If

If Z > 0.75 Then
Line (X, Y)-(X, Y - 1), QBColor(0)
Y = Y - 1

End If
End If


i = i + 1
Loop


End Sub

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。