mainmodule.bas

金水区行政审批服务软件窗口系统

            'If DimLanguageIsEng = True Then
                '.RichText.Text = EngArticles(Int(Rnd * 31))
            'Else
                '.RichText.Text = ChnArticles(Int(Rnd * 10))
            'End If
        'End If
        'FromFile = False
        
        '.Timer2.Enabled = True
        '.Image_Point.Visible = True
        
        '.Timer1.Enabled = False
        '.Label_Rat.Caption = "100.00%"
        '.Shape_Rat.Width = 1000
        'Position = 0
        'TxtError = 0
     
        'Richtext_length = Len(.RichText.Text)
        'RichText_Text = .RichText.Text
        '.ComOpenFile.Enabled = True
        '.ComLanguage.Enabled = True
    
        
        'With .RichText
            '.SelStart = 0
            '.SelLength = Richtext_length
            '.SelColor = TxtDefCol
            '.SelAlignment = 0
            '.SelStart = 0
        'End With

   'End With
   
    
End Sub

Public Sub TestEnd()

    'With MainForm
       ' .Timer1.Enabled = False
       ' .label_time = "00分00秒"
    'End With
    
    'Timer1_SecCount = 0
    'Timer1_MinCount = 0
    
    
    
End Sub


Public Sub TestPause()
    
    'If MainForm.Timer1.Enabled = False Then Exit Sub

    'MainForm.Timer1.Enabled = False
    'MsgBox "你选择了暂停,计时器暂时停止", vbOKOnly, "暂停"
    'MainForm.Timer1.Enabled = True

End Sub


Public Sub ReDo()

    'Call TestEnd
    'Call TestBegin
    
End Sub



Public Sub EnglishArticles()

    EngArticles(0) = "  As special body movement that carry meaning, gestures are an important component of non-verbal communication. Some gestures have come to be accepted in general as having the similar meanings, such as a handshake is the most common gesture that goes with a greeting, waving an outstretched hand with open palm is the gesture for 'goodbye' and so on."
    EngArticles(1) = "  Why does the universe exist? Since the 1920s, scientists have known the universe is expanding, which means it must have started at a definite time in the past. They even have developed theories that give a detailed picture of the evolution of the universe from the time it was a fraction of a second old to the present."
    EngArticles(2) = "  What do you know about your nose? Here are some not-so-trivial facts to understand that body part in the middle of your face: If you're right-handed, your right nostril will be more sensitive to odors. You're a lefty? Then it's the other way around. When you're feeling hungry, your sense of smell is heightened."
    EngArticles(3) = "  In the 1960s, animal behavior researchers studied the effects of various substances on spiders. When spiders were fed flies that had been injected with caffeine, they spun very ""nervous"" webs. When spiders ate flies injected with LSD, they spun webs with wild, abstract patterns. Spiders that were given sedatives fell asleep before completing their webs."
    EngArticles(4) = "  Cats are now the most popular pets in the United States. In 1993 there were an estimated 64 million cats in the U.S. That means that there was at least one cat in 33% of American households! And why not? Contrary to the uninitiated, cats are highly intelligent. They CHOOSE not to come when you call them."
    EngArticles(5) = "  Do you know that the belief that dogs chew grass to aid them in vomiting is probably false? Dogs can very easily regurgitate. In fact, after eating wolves can travel significant distances back to their dens and regurgitate the food at will to feed their pups! the common belief that dogs are color blind is false."
    EngArticles(6) = "  I have been an active amateur astronomer for about 20 years and observe most types of astronomical objects but my passion is for deep sky astronomy. I record my observations visually using pencil and paper, this method has the advantages of being very inexpensive, the observations show what the night sky really looks like to the human eye."
    EngArticles(7) = "  I have just moved to a house in Bridge Street. Yesterday a beggar knocked at my door. He asked me for a meal and a glass of beer. In return for this, the beggar stood on his head and sang songs. I gave him a meal. He ate the food and drank the beer. Then he put a piece of cheese in his pocket and went away. Later a neighbour told me about him."
    EngArticles(8) = "  But this doesn't worry me. Some fishermen are unlucky. Instead of catching fish, they catch old boots and rubbish. I am even less lucky. After having spent whole mornings on the river, I always go home with an empty bag. I'm not interested in fishing. I am only interested in sitting in a boat and doing nothing at all!"
    EngArticles(9) = "  On Wednesday evening, we went to the Town Hall. It was the last day of the year and a large crowd of people had gathered under the Town Hall clock. It would strike twelve in twenty minutes' time. Fifteen minutes passed and then, at five to twelve, the clock stopped. The big minute hand did not move. We waited and waited, but nothing happeded."
    EngArticles(10) = "  The Greenwood boys are a group of pupular singers. At present, they are visiting all parts of the country. They will be arriving here tomorrow. They will be coming by train and most of the young people in the town will be meeting them at the station. Tomorrow evening they will be singing at the Worker's Club. The Greenwood Boys will be staying for five days."
    EngArticles(11) = "  In the end, we will conserve only what we love. We will love only what we understand. We will understand only what we are taught. Math is like love -- a simple idea but it can get complicated. Romance is built on illusion, and when we love someone, we love the illusion they have created for us. A friend might well be reckoned the masterpiece of nature."
    EngArticles(12) = "  The essence of true friendship is to make allowances for another's little lapses. Tis better to have loved and lost than never to have loved at all. It is best to love wisely, no doubt; but to love foolishly is better than not to be able to love at all. Truth is fiction when spilled from the lips of a man. If love is the answer, could you rephrase the question?"
    EngArticles(13) = "  I had an amusing experience last year. After I had left a small village in the south of France, I drove on to the next town. On the way, a young man waved to me. I stopped and he asked me for a lift. As soon as he had got into the car, I said good morning to him in French and he replied in the same language. Apart from a few words, I do not know any French at all."
    EngArticles(14) = "  If you park your car in the wrong place, a traffic policeman will soon find it. You will be very lucky if he lets you go without a ticket. However, this does not always happen. Traffic police are sometimes very polite. During a holiday in Sweden, I found this note on my car, ""Sir, we welcome you to our city. This is a No Parking area. You will enjoy your stay here if you pay attention to our street signs."
    EngArticles(15) = "  After this encounter, every night when I walked on that road, I was always expecting something to turn up. Maybe I was hoping to just see the deer again, the three of them or even more. Maybe I was wishing to re-experience that moment, a moment of surprise, a moment of escape from my lonely, monotonous and pressured student life."
    EngArticles(16) = "  To combat fear, the best strategy is to learn to bring your attention back to the present. Mark Twain said, ""I have been through some terrible things in my life, some of which actually happened. "" I don't think I can say it any better. Practice keeping your attention on the here and now. Your efforts will pay great dividends."
    EngArticles(17) = "  Many people live as if life were a dress rehearsal for some later date. It isn't. In fact, no one has a guarantee that he or she will be here tomorrow. Now is the only time we have, and the only time that we have any control over. When our attention is in the present moment, we push fear from our minds."
    EngArticles(18) = "  I am used to travelling by air and only on one occasion have I ever felt frightened. after taking off, we were flying low over the city and slowly gaining height, when the plane suddenly turned round and flew back to the airport. While we were waiting to land, an air-hostes told us to keep calm and to get off the plane quietly as soon as it had touched down."
    EngArticles(19) = "  I was having dinner at a restaurant when Harry came in. Harry worked in a lawyer's office years ago, but he is now working at a bank. He gets a good salary, but he always borrows money from this friends and never pays it back. Harry saw me and came and sat at the same table. He has never borrowed money from me. While he was eating, I asked him to lend me some money."
    EngArticles(20) = "  When you reach for the stars, you may not quite get one, but you won't come up with a handful of mud either. An expert is one who knows more and more about less and less until he knows absolutely everything about nothing. All progress is based upon a universal innate desire on the part of every organism to live beyond its income. It is better to be defeated on principle than to win on lies."
    EngArticles(21) = "  Living without an aim is like sailing without a compass. Life is like a onion: You peel it off one layer at a time, and sometimes you weep. I consider myself an average man, except in the fact that I consider myself an average man."
    EngArticles(22) = "  If you want people to think well of you, do not speak well of yourself. He who loses wealth loses much; he who loses a friend loses more; but he who loses courage loses all. Good temper is like a sunny day; it sheds it's brightness everywhere. Anger is seldom without an argument, but seldom with a good one. When angry, count ten before you speak; if very angry, count a hundred."
    EngArticles(23) = "  If A equals success, then the formula is A equals X plus Y plus Z, with X being work, Y play, and Z keeping your mouth shut. I am a slow walker, but I never walk backwards. Faith is the bird that feels the light when the dawn is still dark. He who will not when he may, when he will he shall have nay."
    EngArticles(24) = "  Use what talents you possess,the woods would be very silent if no birds sang there except those that sang best. You never know what you can do till you try. Say well is good, but do well is better. Deeds are fruits, words are but leaves. Well begin is half done. Genius is one percent inspiration and ninety-nine percent perspiration. To win you have to risk loss."
    EngArticles(25) = "  The world is a play that would not be worth seeing if we knew the plot. Every man loves what he is good at. Tell me what you like, and I'll tell you what you are. Ask not what your country can do for you; ask what you can do for your country."
    EngArticles(26) = "  He who will not reason, is a bigot; he who can not is a fool; and he who dares not is a slave. In education we are striving not to teach youth to make a living, but to make a life. The education of a man is never completed until he dies. I am not afraid of tomorrow for I have seen yesterday and I love today."
    EngArticles(27) = "  A guy goes to a single's bar to find a bedmate for the nite. He sits at the bar and has a couple of drinks while surveying his possibilities. He finally decides on a cute redhead that seems to be having a great time dancing with different guys. So he has another quick drink while waiting for the music to stop, making sure he is positioned to ask her for the next dance."
    EngArticles(28) = "  Good friend, for Jesus' sake forbeare, To dig the dust enclosed here. Blessed be the man that spares these stones. And cursed be he that moves my bones. Grief fills the room up of my absent child, Lies in his bed, walks up and down with me, Puts on his pretty looks, repeats his words, Remembers me of all his gracious parts, Stuffs out his vacant garments with his form. Then have I reason to be fond of grief."
    EngArticles(29) = "  An Englishman, an Irishman and a Scotsman were sitting in a bar, drinking, and discussing how stupid their wives were. The Irishman says, ""I tell you, my wife is so stupid. Last week she went to the supermarket and bought $300 worth of meat because it was on sale, and we don't even have a fridge to keep it in."""
    EngArticles(30) = "  There was a husband and his wife sitting next to a drunk in a bar. Suddenly the drunk stands up and yells, ""ATTENTION ALL"" and farts loudly. The wife is extremely embarrassed, and the husband looks at the drunk and says""Excuse me, you just farted before my wife. ""The drunks replies, ""I'm sorry I didn't know it was her turn."
    
End Sub


Public Sub ChineseArticles()
    
    
    ChnArticles(0) = "  曲曲折折的荷塘上面，弥望的是田田的叶子。叶子出水很高，像亭亭的舞女的裙。层层的叶子中间，零星地点缀着些白花，有袅娜地开着，有羞涩的打着朵儿的；正如一粒粒的明珠，又如碧天里的星星，又如刚出浴的美人。微风过处，送来缕缕清香。"
    ChnArticles(1) = "  那是我十二三岁时的事，隔壁豆腐店里的王囡囡是当时我的小伴侣中的大阿哥。他是独子，他的母亲、祖母和大伯，都很疼爱他，给他很多的钱和玩具，而且每天放任他在外游玩。他家与我家贴邻而居。我家的人们每天赴市，必须经过他家的豆腐店的门口，两家的人们朝夕相见，互相来往。"
    ChnArticles(2) = "  盼望着，盼望着，东风来了，春天脚步近了。一切都像刚睡醒的样子，欣欣然张开了眼。山朗润起来了，水涨起来了，太阳的脸红起来了。小草偷偷地从土里钻出来，嫩嫩的，绿绿的。园子里，田野里，瞧去一大片一大片满是的。坐着，躺着，打两个滚，踢几脚球，赛几趟跑，捉几回迷藏。风轻悄悄的，草软绵绵的。"
    ChnArticles(3) = "  我第二次到仙岩的时候，我惊诧于梅雨潭的绿了。梅雨潭是一个瀑布潭。仙瀑有三个瀑布，梅雨瀑最低。走到山边，便听见花花花花的声音；抬起头，镶在两条湿湿的黑边儿里的，一带白而发亮的水便呈现于眼前了。我们先到梅雨亭。梅雨亭正对着那条瀑布；坐在亭边，不必仰头，便可见它的全体了。"
    ChnArticles(4) = "  我与父亲不相见已有二年余了，我最不能忘记的是他的背影。那年冬天，祖母死了，父亲的差使也交卸了，正是祸不单行的日子，我从北京到徐州，打算跟着父亲奔丧回家。到徐州见着父亲，看见满院狼籍的东西，又想起祖母，不禁簌簌地流下眼泪。父亲说，“事已如此，不必难过，好在天无绝人之路！”"
    ChnArticles(5) = "  燕子去了，有再来的时候；杨柳枯了，有再青的时候；桃花谢了，有再开的时候。但是，聪明的，你告诉我，我们的日子为什么一去不复返呢？是有人偷了他们吧：那是谁？又藏在何处呢？是他们自己逃走了吧：现在又到了哪里呢？我不知道他们给了我多少日子；但我的手确乎是渐渐空虚了。在默默里算着，八千多日子已经从我手中溜去；像针尖上一滴水在大海里，我的日子滴在时间的流里，没有声音，也没有影子。"
    ChnArticles(6) = "  昨晚中西音乐歌舞大会里“中西丝竹和唱”的三曲清歌，真令我神迷心醉了。仿佛一个暮春的早晨。霏霏的毛雨默然洒在我脸上，引起润泽、轻松的感觉。新鲜的微风吹动我的衣袂，像爱人的鼻息吹着我的手一样。我立的一条白矾石的甬道上，经了那细雨，正如涂了一层薄薄的乳油；踏着只觉越发滑腻可爱了。"
    ChnArticles(7) = "  说起冬天，忽然想到豆腐。是一“小洋锅”（铝锅）白煮豆腐，热腾腾的。水滚着，象好些鱼眼睛，一小块一小块豆腐养在里面，嫩而滑，仿佛反穿的白狐大衣。锅在“洋炉子”（煤没不打气炉）上，和炉子都熏得乌黑乌黑，越显出豆腐的白。这是晚上，屋子老了，虽点着“洋灯”，也还是阴暗。围着桌子坐在是父亲跟我们哥儿三个。"
    ChnArticles(8) = "  正面意义的“幸福”，其实也未尝没有。正如谁所说，小的总是可爱，孩子们的小模样，小心眼儿，确有些教人舍不得的。阿毛现在五个月了，你用手指去拨弄她的下巴，或向她做趣脸，她便会张开没牙的嘴格格地笑，笑得象一朵正开的花。她不愿在屋里待着；待久了，便大声儿嚷。妻常说，“姑娘又要出去溜达了。”她说她象鸟儿般，每天总得到外面溜一些时候。"
    ChnArticles(9) = "  生长在大江北岸一个城市里，那儿的园林本是著名的，但近来却很少；似乎自幼就不曾听见过“我们今天看花去”一类话，可见花事是不盛的。有些爱花的人，大都只是将花栽在盆里，一盆盆搁在架上；架子横放在院子里。院子照例是小小的，只够放下一个架子；架上至多搁二十多盆花罢了。有时候里依墙筑起一座“花台”，台上种一株开花的树；也有在院子里地上种的。"

End Sub