璐村惂鐢ㄦ埛_005aVNR馃惥的个人资料 - RAT

璐村惂鐢ㄦ埛_005aVNR馃惥 -

关注数: 0 粉丝数: 1 发帖数: 127 关注贴吧数: 0

汇编求助？？？？（DS）=B100，（BX）=2000，在BX单元中中存放了某变量的指针基地址为8000H，偏移地址为0FF10H，写出将该变量存入AX的指令。

画图板原代码 Dim RANGE As IntegerDim M As IntegerDim n As IntegerDim gtoolbarindex As IntegerDim STARTX As SingleDim STARTY As SingleDim ENDX As SingleDim ENDY As SingleDim dodown As BooleanDim saved As BooleanDim changed As BooleanPrivate Declare Function ExtFloodFill Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long, ByVal wFillType As Long) As LongPrivate Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As LongPrivate Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As LongPrivate Declare Function RoundRect Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As LongPrivate Type POINTAPI X As Long Y As LongEnd TypeDim Points(0 To 3) As POINTAPIDim idx As IntegerPrivate Declare Function PolyBezier Lib "gdi32" (ByVal hdc As Long, lppt As POINTAPI, ByVal cPoints As Long) As LongDim PAINT As BooleanDim WENJIAN As StringPrivate Sub Form_Load() Picture6.BackColor = Picture3.BackColor Picture6.ForeColor = Picture9.BackColor PAINT = False Picture6.ScaleMode = 3 dodown = False saved = False changed = False Picture6.AutoRedraw = True Timer2.Interval = 1000 HScroll1.LargeChange = 20 HScroll1.SmallChange = 5 VScroll1.LargeChange = 20 VScroll1.SmallChange = 5 Form1.StatusBar1.Style = sbrText Form1.StatusBar1.Panels(4) = "保护眼睛 ZKL" RANGE = 10 M = 5 n = 15 End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.StatusBar1.Panels(1).Text = "要获得帮助请在“帮助”中单击“帮助主题”"End SubPrivate Sub Form_Resize() '控制PICTURE5随FORM改变 Picture5.AutoSize = True Picture5.Left = Picture7.Width Picture5.Top = 0 Picture5.Width = Form1.Width - Picture7.Width Picture5.Height = Form1.ScaleHeight - Picture8.Height End SubPrivate Sub HScroll1_Change() Picture6.Left = -HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll() Picture6.Left = -HScroll1.ValueEnd SubPrivate Sub MNUBANGZHUZHUTI_Click() '帮助文件 CommonDialog1.HelpCommand = cdlHelpContents CommonDialog1.HelpFile = "C:\WINNT\Help\mspaint" CommonDialog1.HelpKey = "画直线" CommonDialog1.ShowHelpEnd SubPrivate Sub MNUCOLOR_Click() '控制颜色框的现藏 If MNUCOLOR.Checked Then Form1.Picture1.Visible = False For Index = 0 To 27 Form1.Picture4(Index).Visible = False MNUCOLOR.Checked = False Next Index Else Form1.Picture1.Visible = True For Index = 0 To 27 Form1.Picture4(Index).Visible = True

画图板原代码 Dim RANGE As IntegerDim M As IntegerDim n As IntegerDim gtoolbarindex As IntegerDim STARTX As SingleDim STARTY As SingleDim ENDX As SingleDim ENDY As SingleDim dodown As BooleanDim saved As BooleanDim changed As BooleanPrivate Declare Function ExtFloodFill Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long, ByVal wFillType As Long) As LongPrivate Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As LongPrivate Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As LongPrivate Declare Function RoundRect Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As LongPrivate Type POINTAPI X As Long Y As LongEnd TypeDim Points(0 To 3) As POINTAPIDim idx As IntegerPrivate Declare Function PolyBezier Lib "gdi32" (ByVal hdc As Long, lppt As POINTAPI, ByVal cPoints As Long) As LongDim PAINT As BooleanDim WENJIAN As StringPrivate Sub Form_Load() Picture6.BackColor = Picture3.BackColor Picture6.ForeColor = Picture9.BackColor PAINT = False Picture6.ScaleMode = 3 dodown = False saved = False changed = False Picture6.AutoRedraw = True Timer2.Interval = 1000 HScroll1.LargeChange = 20 HScroll1.SmallChange = 5 VScroll1.LargeChange = 20 VScroll1.SmallChange = 5 Form1.StatusBar1.Style = sbrText Form1.StatusBar1.Panels(4) = "保护眼睛 ZKL" RANGE = 10 M = 5 n = 15 End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.StatusBar1.Panels(1).Text = "要获得帮助请在“帮助”中单击“帮助主题”"End SubPrivate Sub Form_Resize() '控制PICTURE5随FORM改变 Picture5.AutoSize = True Picture5.Left = Picture7.Width Picture5.Top = 0 Picture5.Width = Form1.Width - Picture7.Width Picture5.Height = Form1.ScaleHeight - Picture8.Height End SubPrivate Sub HScroll1_Change() Picture6.Left = -HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll() Picture6.Left = -HScroll1.ValueEnd SubPrivate Sub MNUBANGZHUZHUTI_Click() '帮助文件 CommonDialog1.HelpCommand = cdlHelpContents CommonDialog1.HelpFile = "C:\WINNT\Help\mspaint" CommonDialog1.HelpKey = "画直线" CommonDialog1.ShowHelpEnd SubPrivate Sub MNUCOLOR_Click() '控制颜色框的现藏 If MNUCOLOR.Checked Then Form1.Picture1.Visible = False For Index = 0 To 27 Form1.Picture4(Index).Visible = False MNUCOLOR.Checked = False Next Index Else Form1.Picture1.Visible = True For Index = 0 To 27 Form1.Picture4(Index).Visible = True

画图板?? 求问了这么长时间,高手们,帮帮忙!!!!

对0x解答曾经看过一个帖子,问到0x,它代表十六进制．

VB画图板原代码?? 大哥大姐帮帮忙!!!!!!!!

编程解决初感其实编程也不象很多人想象的那么麻烦,遇见问题要仔细分析,一步一步来,不要乞求一下子就能解决,慢慢思考每一个步骤,相信你一定可以编出来!

画图板怎么编? 用VB怎么编写画图板的原代码??

1 下一页