| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1962 人关注过本帖
标题:寻求帮助!
只看楼主 加入收藏
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:2 
引诱一下色僧:

图片附件: 游客没有浏览图片的权限,请 登录注册

授人以渔,不授人以鱼。
2012-09-26 14:08
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
以下是引用TonyDeng在2012-9-26 14:08:23的发言:

引诱一下色僧:

操作数据库表去了竟然没看到这个
你要引诱 俺就大胆的来了 不怕你妖女 怕的不是妖女

梅尚程荀
马谭杨奚







                                                       
2012-09-26 21:18
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
承认自己是色僧了吧

授人以渔,不授人以鱼。
2012-09-26 22:10
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
这个妖女法力高深啊。。。

梅尚程荀
马谭杨奚







                                                       
2012-09-26 22:57
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
要破戒了?

授人以渔,不授人以鱼。
2012-09-26 23:25
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
以下是引用TonyDeng在2012-9-26 23:25:49的发言:

要破戒了?

。。。想破破不了啊


梅尚程荀
马谭杨奚







                                                       
2012-09-26 23:31
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
晕死。。太粗心了

[ 本帖最后由 有容就大 于 2012-9-26 23:37 编辑 ]

梅尚程荀
马谭杨奚







                                                       
2012-09-26 23:33
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:4 
老大 我做了个外壳 你看怎么样。。
为什么去掉标题栏的Form都无法移动?
图片附件: 游客没有浏览图片的权限,请 登录注册

程序代码:
Clear All
Set Talk Off
Set Decimals To 4
Public  bdr_Width as Integer
bdr_width = 2
Public btn_array[4]
btn_array[1] = CreateObject("C_Struct", "V", "V-y图", "X Scale  = ")
btn_array[2] = CreateObject("C_Struct", "U", "U-y图", "Y Scale  = ")
btn_array[3] = CreateObject("C_Struct", "E", "E-y图", "Increase = ")
btn_array[4] = CreateObject("C_Struct", "q", "退出", "")

Main()
Clear All
Return

Define Class C_Struct as Custom
    ID = ""
    cpn_button = ""
    cpn_label = ""
  
    Procedure Init(tc_ID, tc_cpn_button , tc_cpn_label )
        With This
            .ID = tc_ID
            .cpn_button = tc_cpn_button
            .cpn_label = tc_cpn_label
        EndWith
    EndProc
EndDefine

Define Class C_Button as CommandButton
    Width = 59
    Height = 25
    Key = ""
  
    Procedure Init(Key_t)
        With This
            .Key = Key_t
            .Caption = .Key.cpn_button
        EndWith
    EndProc
  
    Procedure Click
        With this  
            Do Case
                Case .key.ID == "q"
                Clear Events
            EndCase
        EndWith
    EndProc
EndDefine

Define Class C_Label as Label
    Width = 70
    Height = 25
    Key = ""
  
    Procedure Init(Key_t)
        With This
            .Key = Key_t
            .Caption = .Key.cpn_label
        EndWith
    EndProc   
EndDefine

Procedure Main()
    Local loMainForm
    loMainForm = CreateObject("C_Form")
    loMainForm.Show
    Read EVENTS
    Return
EndProc

Define Class C_Form as Form
    movable = .T.
    TitleBar = 0
    BackColor = RGB(107, 173, 246)
  
    Add Object Title1 as Label with ;
         Caption = "函数图像",;
         Top = 8, Left = 8,;
         AutoSize = .T.,;
         FontBold = 1, FontSize = 12,;
         FontName = "楷体", BackStyle = 0

    Add Object Body as Container with ;
        Top = 30, left = bdr_width, Width = 600, ;
        Height = 410, BackStyle = 0   

    Add Object image1 as Image with ;
        Top = 38,;
        Left = 400,;
        Height = 78,;
        Width = 198,;
        Picture = "c:\documents and settings" + ;
        "\administrator\my documents\my pictures\0.jpg"                      
  
    Procedure Body.Init
        For i = 1 to Alen(btn_array, 1)
            lo_name = "button" + Transform(i)
            This.AddObject(lo_name, "C_Button", btn_array[i])
            With this.&lo_name
                .Top = 370
                .Left = 330 + (i - 1) * 60
            EndWith
            If i # 4
                lo_name = "label" + Transform(i)
                This.AddObject(lo_name, "C_Label", btn_array[i])
                With THis.&lo_name
                    .Top = 3 + (i - 1) * 20
                    .Left = 5
                EndWith
                lo_name = "Text" + Transform(i)
                This.AddObject(lo_name, "TextBox")
                With THis.&lo_name
                    .Top = 3 + (i - 1) * 20
                    .Left = 75
                    .Height = 20
                    .Width = 60
                EndWith
            endif
            This.Setall("Visible", .T.)
            This.SetAll("BackStyle", 0)
        Next
                 This.AddObject("Y", "Line")
                    With This.Y
                        .Top = 300
                        .Width = 600
                        .Height = 0
                        .Visible = .T.
                    EndWith
                  
                    This.AddObject("V", "Line")
                    With This. V         
                        .Top = 0
                        .Left = 200
                        .Width = 0
                        .Height = 410
                        .Visible = .T.
                    EndWith
                  
                    This.AddObject("V1", "Line")
                    With This. V1         
                        .Top = 0
                        .Left = 200
                        .Width = 10
                        .Height =10
                        .Visible = .T.
                    EndWith
                  
                    This.AddObject("V2", "Line")
                    With This. V2         
                        .Top = 0
                        .Left = 190
                        .Width = 10
                        .Height = 10
                        .LineSlant = '/'
                        .Visible = .T.
                    EndWith
                  
                    This.AddObject("Y1", "Line")
                    With This. Y1         
                        .Top = 290
                        .Left = 590
                        .Width = 10
                        .Height =10
                        .Visible = .T.
                    EndWith   
              
                    This.AddObject("Y2", "Line")
                    With This. Y2         
                        .Top = 300
                        .Left = 590
                        .Width = 10
                        .Height = 10
                        .LineSlant = '/'
                        .Visible = .T.
                    EndWith   

                   This.AddObject("原点", "Label")
                        With This.原点          
                        .Top = 305
                        .Left = 180
                        .Caption = "0"
                        .BackStyle = 0
                        .FontSize = 14
                        .AutoSize = .T.
                        .Visible = .T.
                    EndWith      
                   
                    This.AddObject("V轴", "Label")
                        With This.V轴          
                        .Top = 15
                        .Left = 180
                        .Caption = "v"
                        .BackStyle = 0
                        .FontSize = 14
                        .AutoSize = .T.
                        .Visible = .T.
                    EndWith
                   
                   This.AddObject("Y轴", "Label")
                        With This.Y轴          
                        .Top = 305
                        .Left = 580
                        .Caption = "y"
                        .BackStyle = 0
                        .FontSize = 14
                        .AutoSize = .T.
                        .Visible = .T.
                    EndWith                       
    EndProc    

    Procedure Init
        With this
            .Width = .Body.Width + bdr_width * 2
            .Height = .Body.Height + .Body.Top + bdr_width
            .Top = 50
            .Left = 100
        EndWith
    EndProc
EndDefine 



[ 本帖最后由 有容就大 于 2012-9-27 00:04 编辑 ]

梅尚程荀
马谭杨奚







                                                       
2012-09-26 23:54
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
老大 你太狠了 竟然把y的范围限制在[0, 4*d/3]之间。。。


梅尚程荀
马谭杨奚







                                                       
2012-09-27 00:49
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:1 
误导我啊 increase 应该是0.001吧
抛物线我已经做出来啦 就是那个小黑点是移动的 不会留下痕迹。。。
难道在y以0.001增加的过程中去动态添加许许多多个shape对象(小黑点)?

梅尚程荀
马谭杨奚







                                                       
2012-09-27 01:21
快速回复:寻求帮助!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.065966 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved