Have a DIY Gin & Tonic Bar at Your Next Party. What’s better than serving gin and tonics at a party? Having a whole gin and tonic bar, that’s what. A few weeks ago I went to an event for Beefeater in San Francisco. They had your traditional bar there, with a bartender mixing up fancy cocktails. There was also a DIY Gin & Tonic bar. You could ask the bartender for just a glass with ice and gin in it, and then use the assortment of tonic waters and accouterments on the table to build your own. ![]() ![]() The idea was so fun I started doing it whenever I had friends over… and it was a big hit. There’s something fun about mixing your own drinks, at least in my opinion. We all want to pretend we’re masters at cocktails, but truth be told most of us have pretty much no idea what we’re doing. A gin & tonic bar is a pretty low- key attempt at an open bar. I’m super careful about using my email address on online forms and what not, but every single time I go to a conference or attend an industry event I somehow manage. ![]() Even for those that have never had a G& T before, it’s a tough one to really screw up. For the most part, you can put whatever you want on the bar as options, and (almost) any concoction your guests come up with will be drinkable. As someone who always becomes the default bartender in my group of friends, I really liked not being in charge of everyone’s drinks for once, and everyone in attendance seemed to really like experimenting on their own. Here’s what you need to build your own: Get a few bottles of gin. Different gins will have different flavors. It can be fun to experiment with different options. Some of my favorites include: The Botanist, Aviator, and Bulldog. Due to problems with available control I created a home grown progress bar using 2 rectangles. A border, and solid bar that is resized as things progress. How to connect android application to MS SQL server database. Get a few tonic water options. Just like the gin, tonic water will add different flavors to your G& T. I love Fever Tree’s Tonic water. Other good options include Q and Fentimans. If you’re feeling particularly adventurous you can also make your own. Cut up fruit and veggies and put them on a plate. In general, grapefruit, cucumbers, lime and oranges go well with gin and tonics. I’ve seen people use more adventurous fruits like strawberries, watermelon, peaches and blueberries as well. Grab at least three or four options from your local grocery and cut them up, displaying them on a plate for guests. Offer a few spices. I really love muddling a bit of basil in the bottom of a glass and pairing that with grapefruit for a G& T. Fresh basil and rosemary can both be great options to have on hand. Cinnamon sticks, peppercorns, juniper berries, and cardamon can also be big hits. Think about what flavors you like in a G& T and then pick things that will enhance that. You can lay these out in their respective containers, or put them in small bowls. Set everything up on a side table (I use a long, short bookshelf near my dining room table). You’ll want to lay out everything I listed above, and then put some (small) glasses and a bucket of ice (as well as something to scoop it out) on the table as well. Small glasses are key here. That means your guests can make a few drinks over the course of the night, and nobody gets carried away and uses half a bottle of gin to make something horrible. For guests that don’t know what they’re doing, I’d suggest starting with a basic 1: 1 recipe one ounce of gin to every one ounce of tonic water, that’s easy enough to eyeball), and then telling them to select just one or two ingredients from the table to enhance it. Light drinkers can double the amount of tonic. It’s VERY hard to go wrong with just adding a few of the fruits (although I’m sure someone can do it). Spices should be used sparingly, but those are pretty difficult to screw up as well as long as you’re limiting your selection to just a small amount of one. As the night progresses, you’ll be surprised what awesome creations your guests come up with, and they’ll definitely be talking about it much more than they would if you labored over their drinks all night. Progress bar in in MS Access. In case others might find this useful, here is a class I wrote for this purpose. I use it all the time in my Access development projects. Just drop it into your project in a class module called cls. Lbl. Prog, and use it like this: This produces a nice little progress bar: On your form, all you need is three labels. Set the back label to the desired size and make the other two hidden. The class does the rest. And here is the code for cls. Lbl. Prog: Option Compare Database. Option Explicit. ' By Adam Waller. Last Modified: 1. Private Const sng. Offset As Single = 1. For Excel. Private Const sng. Offset As Single = 1. For Access. Private mdbl. Max As Double ' max value of progress bar. Private mdbl. Val As Double ' current value of progress bar. Private mdbl. Full. Width As Double ' width of front label at 1. Private mdbl. Inc. Size As Double. Private mbln. Hide. Cap As Boolean ' display percent complete. Private mobj. Parent As Object ' parent of back label. Private mlbl. Back As Access. Label ' existing label for back. Private mlbl. Front As Access. Label ' label created for front. Private mlbl. Caption As Access. Label ' progress bar caption. Private mdte. Last. Update As Date ' Time last updated. Private mbln. Not. Smooth As Boolean ' Display smooth bar by doevents after every update. This class displays a progress bar created. Public Sub Initialize(Back. Label As Access. Label, Front. Label As Access. Label, Caption. Label As Access. Label). On Error Go. To 0 ' Debug Mode. Dim obj. Parent As Object ' could be a form or tab control. Dim frm As Form. Set mobj. Parent = Back. Label. Parent. ' set private variables. Set mlbl. Back = Back. Label. Set mlbl. Front = Front. Label. Set mlbl. Caption = Caption. Label. ' set properties for back label. With mlbl. Back. . Visible = True. . Special. Effect = 2 ' sunken. Seems to lose when not visible. With mlbl. Front. Full. Width = mlbl. Back. Width - (sng. Offset * 2). . Left = mlbl. Back. Left + sng. Offset. . Top = mlbl. Back. Top + sng. Offset. Width = 0. . Height = mlbl. Back. Height - (sng. Offset * 2). . Caption = "". Back. Color = 8. 38. Back. Style = 1. . Visible = True. ' set properties for caption label. With mlbl. Caption. Left = mlbl. Back. Left + 2. . Top = mlbl. Back. Top + 2. . Width = mlbl. Back. Width - 4. . Height = mlbl. Back. Height - 4. . Text. Align = 2 'fm. Text. Align. Center. . Back. Style = 0 'fm. Back. Style. Transparent. Caption = "0%". . Visible = Not Me. Hide. Caption. . Fore. Color = 1. 67. 77. Select Case Err. Number. Case Else. Log. Err Err, "cls. Lbl. Prog", "Initialize", Erl. Resume Next ' Resume at next line. Private Sub Class_Terminate(). On Error Go. To 0 ' Debug Mode. On Error Resume Next. Front. Visible = False. Caption. Visible = False. On Error Go. To 0 ' Debug Mode. Select Case Err. Number. Case Else. Log. Err Err, "cls. Lbl. Prog", "Class_Terminate", Erl. Resume Next ' Resume at next line. Public Property Get Max() As Double. On Error Go. To 0 ' Debug Mode. Max = mdbl. Max. Exit Property. Select Case Err. Number. Case Else. Log. Err Err, "cls. Lbl. Prog", "Max", Erl. Resume Next ' Resume at next line. Public Property Let Max(By. Val dbl. Max As Double). On Error Go. To 0 ' Debug Mode. Max = dbl. Max. Exit Property. Select Case Err. Number. Case Else. Log. Err Err, "cls. Lbl. Prog", "Max", Erl. Resume Next ' Resume at next line. Public Property Get Value() As Double. On Error Go. To 0 ' Debug Mode. Value = mdbl. Val. Exit Property. Select Case Err. Number. Case Else. Log. Err Err, "cls. Lbl. Prog", "Value", Erl. Resume Next ' Resume at next line. Public Property Let Value(By. Val dbl. Val As Double). On Error Go. To 0 ' Debug Mode. If (CInt(dbl. Val * (1. Max))) > (CInt(mdbl. Val * (1. 00 / mdbl. Max))) Then. mdbl. Val = dbl. Val. mdbl. Val = dbl. Val. Exit Property. Select Case Err. Number. Case Else. Log. Err Err, "cls. Lbl. Prog", "Value", Erl. . Resume Next ' Resume at next line.Public Property Get Increment.Size() As Double. On Error Go. To 0 ' Debug Mode. Increment. Size = mdbl. Inc. Size. Exit Property. Select Case Err. Number. Case Else. Log. Err Err, "cls. Lbl. Prog", "Increment. Size", Erl. Resume Next ' Resume at next line. Public Property Let Increment. Size(By. Val dbl. Size As Double). On Error Go. To 0 ' Debug Mode. Inc. Size = dbl. Size. Exit Property. Select Case Err. Number. Case Else. Log. Err Err, "cls. Lbl. Prog", "Increment. Size", Erl. Resume Next ' Resume at next line. Public Property Get Hide. Caption() As Boolean. On Error Go. To 0 ' Debug Mode. Hide. Caption = mbln. Hide. Cap. Exit Property. Select Case Err. Number. Case Else. Log. Err Err, "cls. Lbl. Prog", "Hide. Caption", Erl. Resume Next ' Resume at next line. Public Property Let Hide.Caption(By. Val bln.Hide As Boolean).On Error Go. To 0 ' Debug Mode.Hide. Cap = bln. Hide. Battlefield 3 Online Pass Keygen Idm . Exit Property. Select Case Err. Number. Case Else. Log. Err Err, "cls. Lbl. Prog", "Hide. Caption", Erl. Resume Next ' Resume at next line. Private Sub Update(). On Error Go. To 0 ' Debug Mode. Dim int. Percent As Integer. Dim dbl. Width As Double. On Error Resume Next. Percent = mdbl. Val * (1. Max). dbl. Width = mdbl. Val * (mdbl. Full. Width / mdbl. Max). Front. Width = dbl. Width. mlbl. Caption. Caption = int. Percent & "%". Front. Parent. Repaint ' may not be needed. Use white or black, depending on progress. If Me. Value > (Me. Max / 2) Then. mlbl. Caption. Fore. Color = 1. Caption. Fore. Color = 0 ' black. If mbln. Not. Smooth Then. If mdte. Last. Update < > Now Then. Do. Events. mdte. Last. Update = Now. Do. Events. Select Case Err. Number. Case Else. Log. Err Err, "cls. Lbl. Prog", "Update", Erl. Resume Next ' Resume at next line. Public Sub Increment(). On Error Go. To 0 ' Debug Mode. Dim dbl. Val As Double. Val = Me. Value. If dbl. Val < Me. Max Then. Me. Value = dbl. Val + 1. Call Update. Select Case Err. Number. Case Else. Log. Err Err, "cls. Lbl. Prog", "Increment", Erl. Resume Next ' Resume at next line. Public Sub Clear(). On Error Go. To 0 ' Debug Mode. Call Class_Terminate. Select Case Err. Number. Case Else. Log. Err Err, "cls. Lbl. Prog", "Clear", Erl. Resume Next ' Resume at next line. Private Function Parent. Form(ctl. Control As Control) As String. Dim obj. Parent As Object. Set obj. Parent = ctl. Control. Do While Not Type. Of obj. Parent Is Form. Set obj. Parent = obj. Parent. Parent. ' Now we should have the parent form. Parent. Form = obj. Parent. Name. Public Property Get Smooth() As Boolean. Display the progress bar smoothly. True by default, this property allows the call. If False, it will only update once per second. This may increase speed for fast progresses.). Smooth = mbln. Not. Smooth. Public Property Let Smooth(By. Val Is. Smooth As Boolean). Not. Smooth = Not Is. Smooth. Private Sub Log. Err(obj. Err, str. Mod, str. Proc, int. Line). ' For future use.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |