鸿运当归 发表于 2022-5-24 09:25:32

三段封装好的显示文本函数拿去用——小名叫雷锋

//| CreateTextLable() function


void CreateTextLable


(string TextLableName, string Text, int TextSize, string FontName, color TextColor, int TextCorner, int X, int Y )


{


//---


   ObjectCreate(TextLableName, OBJ_LABEL, 0, 0, 0);


   ObjectSet(TextLableName, OBJPROP_CORNER, TextCorner);


   ObjectSet(TextLableName, OBJPROP_XDISTANCE, X);


   ObjectSet(TextLableName, OBJPROP_YDISTANCE, Y);


   ObjectSetText(TextLableName,Text,TextSize,FontName,TextColor);


//----


}






//| SetTextLable() function                                          |






void SetTextLable


(string TextLableName, string Text, int TextSize, string FontName, color TextColor, int TextCorner, int X, int Y )


{


//---


   ObjectSet(TextLableName, OBJPROP_CORNER, TextCorner);


   ObjectSet(TextLableName, OBJPROP_XDISTANCE, X);


   ObjectSet(TextLableName, OBJPROP_YDISTANCE, Y);


   ObjectSetText(TextLableName,Text,TextSize,FontName,TextColor);


//----


}






//| TimeCount() function                                          |






void TimeCount


(string TextLableName, int StartNumber, int StopNumber, int Inerval, int TextSize, string FontName, color TextColor, int TextCorner, int X, int Y )


{


//---


   CreateTextLable(TextLableName,"-"+StartNumber+"-",TextSize,FontName,TextColor,TextCorner,X,Y);


   WindowRedraw();


   PlaySound("WAIT");


   for(int Count=StartNumber+1;Count<=StopNumber;Count++)


    {


   Sleep(Inerval);


   PlaySound("WAIT");


   SetTextLable(TextLableName,"-"+ Count+"-",TextSize,FontName,TextColor,TextCorner,X,Y);


   WindowRedraw();


    }


   Sleep(Inerval);


   ObjectDelete(TextLableName);


//----


}

qwe11 发表于 2022-5-24 09:27:01

谢谢分享

whl 发表于 2022-5-24 09:39:14

谢谢分享

pengjhl 发表于 2022-5-24 11:07:17

谢谢分享

紫竹青荷 发表于 2022-5-24 11:56:49

感谢楼主分享

daerbushen 发表于 2022-5-24 12:49:59

路过看看

kenlee1628 发表于 2022-5-24 13:51:47

感谢分享

古希腊恶人 发表于 2022-5-24 15:16:51

感谢分享

bin 发表于 2022-5-24 16:01:11

谢谢分享

ssbienhild 发表于 2022-5-24 21:14:40

谢谢分享

JOKEEBOSS 发表于 2022-5-24 21:48:34

路过路过

不忘初心的远航 发表于 2022-5-25 02:23:12

感谢楼主分享，好好学习，天天向上！

刘先生io 发表于 2022-5-25 07:20:29

感谢分享

lihua22 发表于 2022-5-25 08:35:50

谢谢分享

jongjongyoshen 发表于 2022-5-25 08:55:21

路过看看

ea12213 发表于 2022-6-17 20:41:25

谢谢分享

huxu8777 发表于 2022-6-17 23:40:54

确有见解

pengjhl 发表于 2022-6-19 10:57:59

感谢分享

jordan1984 发表于 2022-6-19 11:06:27

我就看看

nanaliu 发表于 2022-6-19 11:43:22

看看。。感谢分享。。。。
页: [1] 2 3
查看完整版本: 三段封装好的显示文本函数拿去用——小名叫雷锋